Hi all, Part I If you get the script below to work then it needs to be modified:
I have pulled the seach.html file as follows: I went to link http://srch.overture.com) then search for word "help", then I save the result as file named search.html Then I wrote the script below to extract and find the URLs in this saved web page (which is not working very well). Part II I now want to pipe the saved file to the script from STDIN. the URLs found should be printed to the command line, each on different line. The script should be general enough so that it can be tested with a different query, eg. "help them". This is where I am at: A script that does not really work #!/usr/bin/perl -w use strict; open(A_file,"<search.html") || die "can't read search.html:$!"; my @ary = <A_file>; my $n = 0; while($n <= $#ary){ chomp($ary[$n]); while($ary[$n] =~ s#.*(href = http.*)\s.*#$1#){ $ary[$n] =~ s/<.*>//g; $ary[$n] =~ s/>.*//g; print $ary[$n],"\n"; } $n++; } close(A_file); -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
