Ryan Dillinger wrote: > [...] > #!/usr/bin/perl > use warnings; > use strict; > > open LYNX, "lynx -source http://www.perl.com/ |" or die "Can't open lynx: > $!"; > $_ = ""; > $_ = <LYNX> until /standard\.def/; >
If 'standard.def' is not found, this line loops forever. > my $head = <LYNX>; > $head =~ m|^<A HERF=[^>]+>(.*?)</a>|i; > HERF != HREF > print "Today's www.perl.com headline: $!\n"; > $! does not equal $1 > Thanks Again! > > > You're welcome. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
