… | … | ||
---|---|---|---|
10 | chomp; | 10 | chomp; |
11 | next if /^#/; | 11 | next if /^#/; |
12 | 12 | ||
13 | my ($url, $content) = split /\t+/; | 13 | my ($url, $content) = split /\t+/; |
14 | 14 | ||
15 | $url =~ s,^([^/]+)/,$1:34567/,; | 15 | $url =~ s,^([^/]+)/,$1:34567/, if $ARGV[0] eq "-t"; |
16 | 16 | ||
17 | $url = "http://$url"; | 17 | $url = "http://$url"; |
18 | 18 | ||
19 | my $res = get $url; | 19 | my $res = get $url; |
20 | 20 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |