|
Posted by John W. Krahn on October 27, 2006, 7:29 pm
Please log in for more thread options
Praveen wrote:
>
> I have just started learning LWP by using O'Relliy book. I wrote this
> as my first program. When I executed it, nothing comes out and the
> program kept on running. Ultimetly I have to cancle the program using
> cntrl-C.
> Here is the code:
You should enable the warnings pragma, it would have told you:
Use of uninitialized value in pattern match (m//) at -e line 9.
use warnings;
> use strict;
> use LWP::Simple;
>
> my $catalog = get("http://www.yahoo.com");
> my $count = 0;
> while ($catalog =~ -mgi){
^
^
You have a unary minus sign in front of the match operator so that is the same
as writing:
while ( $catalog =~ -( $_ =~ mgi ) ) {
> print "$_";
You are not putting anything into $_ so with warnings enabled this will also
give you a warning:
Use of uninitialized value in concatenation (.) or string at -e line 10.
> $count++;
>
> }
> print "$count\n";
John
--
Perl isn't a toolbox, but a small machine shop where you can special-order
certain sorts of tools at low cost and in short order. -- Larry Wall
| 
XML Sitemap