mirror of
https://github.com/curl/curl.git
synced 2024-11-27 05:50:21 +08:00
35 lines
749 B
Perl
35 lines
749 B
Perl
|
#!/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++;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|