Home > Archive > PERL Modules > October 2006 > No connection using LWP
You are viewing an archived Text-only version of the thread.
To view this thread in it's original format and/or if you want to reply to
this thread please [click here]
| Author |
No connection using LWP
|
|
| Praveen 2006-10-30, 7:02 pm |
| 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
| |
| John W. Krahn 2006-10-30, 7:02 pm |
| 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
|
|
|
|
|