diff options
author | Mattias Andrée <maandree@operamail.com> | 2012-08-01 03:33:30 +0200 |
---|---|---|
committer | Mattias Andrée <maandree@operamail.com> | 2012-08-01 03:33:30 +0200 |
commit | 70c27ca36f696b12012d7f47ac3071f747b95207 (patch) | |
tree | 7fd090244f918246f179becb767511fc8afc26fd /linklist.pl | |
parent | e5b783e52858ae73d26c21464952323b9e3f320a (diff) | |
download | ponysay-70c27ca36f696b12012d7f47ac3071f747b95207.tar.gz ponysay-70c27ca36f696b12012d7f47ac3071f747b95207.tar.bz2 ponysay-70c27ca36f696b12012d7f47ac3071f747b95207.zip |
some edits
Diffstat (limited to 'linklist.pl')
-rwxr-xr-x | linklist.pl | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/linklist.pl b/linklist.pl new file mode 100755 index 0000000..c0377aa --- /dev/null +++ b/linklist.pl @@ -0,0 +1,35 @@ +#!/usr/bin/perl + +# ponysaylist +# Prints a list of ponies in columns +# +# Licensed under WTFPL +# See COPYING for details + +# Author: Mattias Andrée, maandree@kth.se +# spider-mario + + +use strict; +use warnings; +use utf8; + +my %hash; + +{ + local @ARGV = @ARGV; + while ((my ($source, $target), @ARGV) = @ARGV) { + unless ($source eq $target) { + push @{$hash{$target}}, $source; + } + } +} + +while ((my ($source, $target), @ARGV) = @ARGV) { + if ($source eq $target) { + my @list = @{$hash{$source} // []}; + print $source; + print ' (', join(' ', @list), ')' if @list; + print "\n"; + } +} |