Re: Timing Web Page Requests

#!/usr/bin/perl -w
use strict;
my ($t, $a);

# why do all the hard work yourself?

chdir "/tmp";
$t = time;
$a=`wget -r --level=1 --span-hosts --follow-tags=img,object,applet,lin
+k,script http://www.yahoo.com/`;
print "Took ".(time-$t)." seconds\n";
[download]

perl -e'@a=split//," \n/)\"={\"",$b="00002731000223155264555102401";print $a$_for split//,$b'

Comment on Re: Timing Web Page Requests Download Code

Replies are listed 'Best First'.
Re: Re: Timing Web Page Requests by pizza_milkshake (Monk) on Mar 12, 2002 at 03:37 UTC
the more the merrier... this is an improvement #!/usr/bin/perl -w use strict; my ($t, $str)=(time,"wget -r --level=1 --quiet --span-hosts --follow-t +ags=img,object,applet,link,script http://www.yahoo.com/"); chdir "/tmp"; `$str` for 1..50; print "Took ".((time-$t)/50)." seconds\n"; [download] perl -e'@a=split//," \n/)\"={\"",$b="00002731000223155264555102401";print $a[$_] for split//,$b'	[reply] [d/l]