PonyMirrors/ponysay
1
0
Fork 0
mirror of https://github.com/erkin/ponysay.git synced 2025-01-31 10:26:43 +01:00
Code Issues Projects Releases Packages Wiki Activity

Simplification of ponysaylinklist.pl as well.

Browse source
This commit is contained in:
spider-mario 2012-07-24 16:57:21 +02:00
parent a30723e36d
commit 0923d3c727
1 changed files with 20 additions and 56 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

76
ponysaylinklist.pl
View file

@ -9,64 +9,28 @@
# Author: Mattias Andrée, maandree@kth.se # Author: Mattias Andrée, maandree@kth.se
%hash = (); use strict;
$argc = @ARGV; use warnings;
use utf8;
use List::MoreUtils qw(natatime);
$i = 0; my %hash;
while ($i < $argc) my $argc = @ARGV;
{
$source = $ARGV[$i]; my $it = natatime 2, @ARGV;
$i += 1; while (my ($source, $target) = &$it) {
$target = $ARGV[$i]; unless ($source eq $target) {
$i += 1; push @{$hash{$target}}, $source;
if ($source eq $target) }
{
$hash{$source} = [ () ];
}
} }
$i = 0; $it = natatime 2, @ARGV;
while ($i < $argc) while (my ($source, $target) = &$it) {
{ if ($source eq $target) {
$source = $ARGV[$i]; my @list = @{$hash{$source} // []};
$i += 1; print $source;
$target = $ARGV[$i]; print ' (', join(' ', @list), ')' if @list;
$i += 1; print "\n";
unless ($source eq $target) }
{
push @{ $hash{$target} }, $source;
}
}
$i = 0;
while ($i < $argc)
{
$source = $ARGV[$i];
$i += 1;
$target = $ARGV[$i];
$i += 1;
if ($source eq $target)
{
@list = @{ $hash{$source} };
$first = 1;
print $source;
foreach $link (@list)
{
if ($first eq 1)
{
print " (".$link;
$first = 0;
}
else
{
print " ".$link;
}
}
if ($first eq 0)
{
print ")";
}
print "\n";
}
} }