diff options
author | Mattias Andrée <maandree@operamail.com> | 2012-08-18 16:10:28 +0200 |
---|---|---|
committer | Mattias Andrée <maandree@operamail.com> | 2012-08-18 16:10:28 +0200 |
commit | 90fbb875f92574ff27e2733d55a3eab4ce97054c (patch) | |
tree | 1da76ca6dade86f74c8a5bb12d2dde4f480ad3ca /linklist.pl | |
parent | 3100f4b32a5ccebfaf7b099ddba68a38bda9c231 (diff) | |
download | ponysay-90fbb875f92574ff27e2733d55a3eab4ce97054c.tar.gz ponysay-90fbb875f92574ff27e2733d55a3eab4ce97054c.tar.bz2 ponysay-90fbb875f92574ff27e2733d55a3eab4ce97054c.zip |
removing old stuff
Diffstat (limited to 'linklist.pl')
-rwxr-xr-x | linklist.pl | 35 |
1 files changed, 0 insertions, 35 deletions
diff --git a/linklist.pl b/linklist.pl deleted file mode 100755 index c0377aa..0000000 --- a/linklist.pl +++ /dev/null @@ -1,35 +0,0 @@ -#!/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"; - } -} |