… | … | ||
---|---|---|---|
6 | open my $fh, "<", "$FindBin::Bin/checklist" | 6 | open my $fh, "<", "$FindBin::Bin/checklist" |
7 | or die "check.txt: $!"; | 7 | or die "check.txt: $!"; |
8 | 8 | ||
9 | while (<$fh>) { | 9 | while (<$fh>) { |
10 | chomp; | 10 | chomp; |
11 | next if /^#/; | ||
12 | |||
11 | my ($url, $content) = split /\t+/; | 13 | my ($url, $content) = split /\t+/; |
12 | 14 | ||
13 | $url =~ s,^([^/]+)/,$1:34567/,; | 15 | $url =~ s,^([^/]+)/,$1:34567/,; |
14 | 16 | ||
15 | $url = "http://$url"; | 17 | $url = "http://$url"; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |