Mercurial > hg > lukkari

annotate parselist.pl @ 193:16ce445c499a v3 tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import v3 branch.
author Matti Hamalainen <ccr@tnsp.org>
date Sun, 22 Jan 2017 02:31:10 +0200
parents 5f3ec534daa7
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
160
a84b40bc2a99 Add parselist.pl utility and use it in update script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1 #!/usr/bin/perl -w
a84b40bc2a99 Add parselist.pl utility and use it in update script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
2 use strict;
a84b40bc2a99 Add parselist.pl utility and use it in update script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
3 use warnings;
179
5f3ec534daa7 Cleanup. Use File::Slurp.
Matti Hamalainen <ccr@tnsp.org>
parents: 160
diff changeset
4 use File::Slurp;
160
a84b40bc2a99 Add parselist.pl utility and use it in update script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
5
a84b40bc2a99 Add parselist.pl utility and use it in update script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
6 my $patprefix = shift or die("Usage: $0 <prefix> <suffix>\n");
a84b40bc2a99 Add parselist.pl utility and use it in update script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
7 my $patsuffix = shift or die("Usage: $0 <prefix> <suffix>\n");
a84b40bc2a99 Add parselist.pl utility and use it in update script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
8
179
5f3ec534daa7 Cleanup. Use File::Slurp.
Matti Hamalainen <ccr@tnsp.org>
parents: 160
diff changeset
9 my %classes = ();
5f3ec534daa7 Cleanup. Use File::Slurp.
Matti Hamalainen <ccr@tnsp.org>
parents: 160
diff changeset
10 my $data = read_file(\*STDIN);
5f3ec534daa7 Cleanup. Use File::Slurp.
Matti Hamalainen <ccr@tnsp.org>
parents: 160
diff changeset
11 if (defined($data))
160
a84b40bc2a99 Add parselist.pl utility and use it in update script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
12 {
179
5f3ec534daa7 Cleanup. Use File::Slurp.
Matti Hamalainen <ccr@tnsp.org>
parents: 160
diff changeset
13 $classes{$1} = 1 while ($data =~ /<a href="$patprefix([A-Z]{3}\d\S+)$patsuffix">/ig)
5f3ec534daa7 Cleanup. Use File::Slurp.
Matti Hamalainen <ccr@tnsp.org>
parents: 160
diff changeset
14 }
160
a84b40bc2a99 Add parselist.pl utility and use it in update script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
15
179
5f3ec534daa7 Cleanup. Use File::Slurp.
Matti Hamalainen <ccr@tnsp.org>
parents: 160
diff changeset
16
5f3ec534daa7 Cleanup. Use File::Slurp.
Matti Hamalainen <ccr@tnsp.org>
parents: 160
diff changeset
17 foreach my $class (sort { $a cmp $b } keys %classes)
5f3ec534daa7 Cleanup. Use File::Slurp.
Matti Hamalainen <ccr@tnsp.org>
parents: 160
diff changeset
18 {
5f3ec534daa7 Cleanup. Use File::Slurp.
Matti Hamalainen <ccr@tnsp.org>
parents: 160
diff changeset
19 print $class."\n";
160
a84b40bc2a99 Add parselist.pl utility and use it in update script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
20 }
179
5f3ec534daa7 Cleanup. Use File::Slurp.
Matti Hamalainen <ccr@tnsp.org>
parents: 160
diff changeset
21
5f3ec534daa7 Cleanup. Use File::Slurp.
Matti Hamalainen <ccr@tnsp.org>
parents: 160
diff changeset
22 print STDERR "* Parsed classfile: ".scalar(keys %classes)."\n";