From 90fbb875f92574ff27e2733d55a3eab4ce97054c Mon Sep 17 00:00:00 2001 From: Mattias Andrée Date: Sat, 18 Aug 2012 16:10:28 +0200 Subject: removing old stuff --- linklist.pl | 35 ----------------------------------- 1 file changed, 35 deletions(-) delete mode 100755 linklist.pl (limited to 'linklist.pl') 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"; - } -} -- cgit