mirror of
https://github.com/erkin/ponysay.git
synced 2024-11-29 23:48:00 +01:00
35 lines
585 B
Perl
Executable file
35 lines
585 B
Perl
Executable file
#!/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";
|
|
}
|
|
}
|