Mercurial > hg > lukkari
view parselist.pl @ 171:66c871dacbc2
Improve course ID handling.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Mon, 24 Aug 2015 11:19: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"; } }