Mercurial > hg > lukkari
view parselist.pl @ 193:16ce445c499a v3 tip
Import v3 branch.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Sun, 22 Jan 2017 02:31:10 +0200 |
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";