Mercurial > hg > lukkari
view parselist.pl @ 168:8b2107f0d50b
Remove dead function.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Mon, 24 Aug 2015 10:51:52 +0300 |
parents | a84b40bc2a99 |
children | 5f3ec534daa7 |
line wrap: on
line source
#!/usr/bin/perl -w use strict; use warnings; my $patprefix = shift or die("Usage: $0 <prefix> <suffix>\n"); my $patsuffix = shift or die("Usage: $0 <prefix> <suffix>\n"); while (defined(my $line = <STDIN>)) { $line =~ s/^\s*//; $line =~ s/\s*$//; while ($line =~ /<a href="$patprefix([A-Z]{3}\d\S+)$patsuffix">/ig) { print "$1\n"; } }