35 lines
749 B
Perl
Executable File
35 lines
749 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
# 1) http://randomurl.com/body.php
|
|
# 2) http://random.yahoo.com/fast/ryl
|
|
# 3) http://www.uroulette.com/visit
|
|
|
|
# 1) very slow, responds with URL in body meta style:
|
|
# <meta http-equiv="refresh" content="0; url=http://www.webmasterworld.com/forum85/735.htm">
|
|
|
|
# 2) Responds with non-HTTP headers like:
|
|
# Status: 301
|
|
# Location: http://www.adaptive.net/
|
|
|
|
# 3) ordinary 30X code and Location:
|
|
|
|
my $url;
|
|
map { $url .= " http://www.uroulette.com/visit"; } (1 .. 12);
|
|
|
|
print $url."\n";
|
|
|
|
my $count=0;
|
|
|
|
open(DUMP, ">>dump");
|
|
|
|
while(1) {
|
|
my @getit = `curl -si $url`;
|
|
for my $l (@getit) {
|
|
if($l =~ /^Location: (.*)/) {
|
|
print DUMP "$1\n";
|
|
print STDERR "$count\r";
|
|
$count++;
|
|
}
|
|
}
|
|
}
|