Mercurial > hg > lukkari

comparison parselist.pl @ 179:5f3ec534daa7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Cleanup. Use File::Slurp.
author Matti Hamalainen <ccr@tnsp.org>
date Tue, 01 Sep 2015 14:51:06 +0300
parents a84b40bc2a99
children
comparison
equal deleted inserted replaced
178:6a7ff339b4bb 179:5f3ec534daa7
1 #!/usr/bin/perl -w 1 #!/usr/bin/perl -w
2 use strict; 2 use strict;
3 use warnings; 3 use warnings;
4 use File::Slurp;
4 5
5 my $patprefix = shift or die("Usage: $0 <prefix> <suffix>\n"); 6 my $patprefix = shift or die("Usage: $0 <prefix> <suffix>\n");
6 my $patsuffix = shift or die("Usage: $0 <prefix> <suffix>\n"); 7 my $patsuffix = shift or die("Usage: $0 <prefix> <suffix>\n");
7 8
8 while (defined(my $line = <STDIN>)) 9 my %classes = ();
10 my $data = read_file(\*STDIN);
11 if (defined($data))
9 { 12 {
10 $line =~ s/^\s*//; 13 $classes{$1} = 1 while ($data =~ /<a href="$patprefix([A-Z]{3}\d\S+)$patsuffix">/ig)
11 $line =~ s/\s*$//; 14 }
12 15
13 while ($line =~ /<a href="$patprefix([A-Z]{3}\d\S+)$patsuffix">/ig) 16
14 { 17 foreach my $class (sort { $a cmp $b } keys %classes)
15 print "$1\n"; 18 {
16 } 19 print $class."\n";
17 } 20 }
21
22 print STDERR "* Parsed classfile: ".scalar(keys %classes)."\n";