In the script below I am trying to to extract the results from performing a search on
the word "help" at http://srch.overture.com
Running the script produce lots of errors.
What am I doing wrong, is my rules correct.
Help
#!/usr/bin/perl - strict
open(A_file,"<search.html>");
my@ary = <A_file>;
while($n < $#ary){
chomp($ary[$n];
while($ary[$n] =~ s#.*(href = http.*)\s.*#\1#n){
$ary[$n] = ~s/<.*>//g;
$ary[$n] =~ s/>.*//g;
print $ary[$n],"\n";
}
$n++;
}
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
