|
@@ -9,10 +9,16 @@ use warnings;
|
|
|
my @page = split("\n", `cat saints.html`);
|
|
|
|
|
|
foreach my $line ( @page ) {
|
|
|
- if ( $line =~ m/<td data-sort-value=.*<a\ href=.*title="(.*)"/ ) {
|
|
|
+ if ( $line =~ m/title="(.*)">.*/ ) {
|
|
|
my $line1 = $1;
|
|
|
- if ( $line1 =~ m/^([a-zA-z0-9\ ,-]{1,})/ ) {
|
|
|
- print "$1\n";
|
|
|
+ if ( $line1 =~ m/ctx/ ) {
|
|
|
+ next;
|
|
|
+ } else {
|
|
|
+ print "$line1\n";
|
|
|
}
|
|
|
+
|
|
|
+ #if ( $line1 =~ m/^([a-zA-z0-9\ ,-]{1,})/ ) {
|
|
|
+ # print "$1\n";
|
|
|
+ #}
|
|
|
}
|
|
|
}
|