Hi,
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:

use strict;
use LWP::Simple;

my $catalog = get("http://www.yahoo.com");
my $count = 0;
while ($catalog =~ -m{sports}gi){
print "$_";
$count++;

}
print "$count\n";

Please let me know what is wrong. I am

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 =~ -m{sports}gi){
^
^
You have a unary minus sign in front of the match operator so that is the same
as writing:

while ( $catalog =~ -( $_ =~ m{sports}gi ) ) {


> 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