From 0923d3c7274db0f75b9b6fab510513030c254427 Mon Sep 17 00:00:00 2001
From: spider-mario <spidermario@free.fr>
Date: Tue, 24 Jul 2012 16:57:21 +0200
Subject: Simplification of ponysaylinklist.pl as well.

---
 ponysaylinklist.pl | 78 +++++++++++++++---------------------------------------
 1 file changed, 21 insertions(+), 57 deletions(-)

(limited to 'ponysaylinklist.pl')

diff --git a/ponysaylinklist.pl b/ponysaylinklist.pl
index ec6ff9b..27c507d 100755
--- a/ponysaylinklist.pl
+++ b/ponysaylinklist.pl
@@ -9,64 +9,28 @@
 # Author: Mattias Andrée, maandree@kth.se
 
 
-%hash = ();
-$argc = @ARGV;
-
-$i = 0;
-while ($i < $argc)
-{
-    $source = $ARGV[$i];
-    $i += 1;
-    $target = $ARGV[$i];
-    $i += 1;
-    if ($source eq $target)
-    {
-        $hash{$source} = [ () ];
-    }
-}
-
-$i = 0;
-while ($i < $argc)
-{
-    $source = $ARGV[$i];
-    $i += 1;
-    $target = $ARGV[$i];
-    $i += 1;
-    unless ($source eq $target)
-    {
-        push @{ $hash{$target} }, $source;
-    }
+use strict;
+use warnings;
+use utf8;
+use List::MoreUtils qw(natatime);
+
+my %hash;
+my $argc = @ARGV;
+
+my $it = natatime 2, @ARGV;
+while (my ($source, $target) = &$it) {
+	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";
-    }
+$it = natatime 2, @ARGV;
+while (my ($source, $target) = &$it) {
+	if ($source eq $target) {
+		my @list = @{$hash{$source} // []};
+		print $source;
+		print ' (', join(' ', @list), ')' if @list;
+		print "\n";
+	}
 }
 
-- 
cgit