Mercurial > hg > lukkari
view parselist.pl @ 183:dda30eff3266
Fix handling of data modification timestamps.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Wed, 30 Sep 2015 08:39:24 +0300 |
parents | 5f3ec534daa7 |
children |
line wrap: on
line source
#!/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"); my %classes = (); my $data = read_file(\*STDIN); if (defined($data)) { $classes{$1} = 1 while ($data =~ /<a href="$patprefix([A-Z]{3}\d\S+)$patsuffix">/ig) } foreach my $class (sort { $a cmp $b } keys %classes) { print $class."\n"; } print STDERR "* Parsed classfile: ".scalar(keys %classes)."\n";