Mercurial > hg > lukkari

annotate parselist.pl @ 160:a84b40bc2a99

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add parselist.pl utility and use it in update script.
author Matti Hamalainen <ccr@tnsp.org>
date Mon, 17 Aug 2015 22:02:22 +0300
parents
children 5f3ec534daa7
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;
a84b40bc2a99 Add parselist.pl utility and use it in update script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
4
a84b40bc2a99 Add parselist.pl utility and use it in update script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
5 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
6 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
7
a84b40bc2a99 Add parselist.pl utility and use it in update script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
8 while (defined(my $line = <STDIN>))
a84b40bc2a99 Add parselist.pl utility and use it in update script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
9 {
a84b40bc2a99 Add parselist.pl utility and use it in update script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
10 $line =~ s/^\s*//;
a84b40bc2a99 Add parselist.pl utility and use it in update script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
11 $line =~ s/\s*$//;
a84b40bc2a99 Add parselist.pl utility and use it in update script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
12
a84b40bc2a99 Add parselist.pl utility and use it in update script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
13 while ($line =~ /<a href="$patprefix([A-Z]{3}\d\S+)$patsuffix">/ig)
a84b40bc2a99 Add parselist.pl utility and use it in update script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
14 {
a84b40bc2a99 Add parselist.pl utility and use it in update script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
15 print "$1\n";
a84b40bc2a99 Add parselist.pl utility and use it in update script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
16 }
a84b40bc2a99 Add parselist.pl utility and use it in update script.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
17 }