# HG changeset patch
# User Matti Hamalainen <ccr@tnsp.org>
# Date 1441108266 -10800
# Node ID 5f3ec534daa730bad6bce01e92efa24259696052
# Parent  6a7ff339b4bb5829b62c88fd7bf8a5fc7b0af3e8
Cleanup. Use File::Slurp.

diff -r 6a7ff339b4bb -r 5f3ec534daa7 parselist.pl
--- a/parselist.pl	Tue Aug 25 08:32:16 2015 +0300
+++ b/parselist.pl	Tue Sep 01 14:51:06 2015 +0300
@@ -1,17 +1,22 @@
 #!/usr/bin/perl -w
 use strict;
 use warnings;
+use File::Slurp;
 
 my $patprefix = shift or die("Usage: $0 <prefix> <suffix>\n");
 my $patsuffix = shift or die("Usage: $0 <prefix> <suffix>\n");
 
-while (defined(my $line = <STDIN>))
+my %classes = ();
+my $data = read_file(\*STDIN);
+if (defined($data))
 {
-  $line =~ s/^\s*//;
-  $line =~ s/\s*$//;
+  $classes{$1} = 1 while ($data =~ /<a href="$patprefix([A-Z]{3}\d\S+)$patsuffix">/ig)
+}
 
-  while ($line =~ /<a href="$patprefix([A-Z]{3}\d\S+)$patsuffix">/ig)
-  {
-    print "$1\n";
-  }
+
+foreach my $class (sort { $a cmp $b } keys %classes)
+{
+  print $class."\n";
 }
+
+print STDERR "* Parsed classfile: ".scalar(keys %classes)."\n";