Hello Jathin,
The problem with the code is that its gone in to an infinite loop..
The pattern matching that u have done u need to make it global or for all
occurances.
..
The /g option is used to match all the patterns in the given string
u can try this..
while ($catalog =~ /Perl/g)
Regards
Ashwin Thayyullathil Surendran
#91 9884444732
On Sat, Oct 30, 2010 at 1:00 PM, Jatin <daveyja...@gmail.com> wrote:
> Hi All
>
> I had a sample code from the Perl&LWP book. It was the very first code i
> was trying out in different ways. Firstly the actual code mentioned in the
> book was as below:
>
> ----------------------------------------------------------------------
> #!/usr/bin/perl
> use warnings;
> use strict;
> use LWP::Simple;
>
> my $catalog = get("http://oreilly.com/store/complete.html";);
>
> my $count = 0;
>
> while ($catalog =~ /Perl/gi) {
> $count++;
> }
>
>
> print "Perl was seen the following number of times in the page : $count
> \n";
> ------------------------------------------------------------------------
>
> I had modified this code in a small way as shown below and this code never
> executed to completion and it was causing 100% CPU usage on my laptop where
> it was being run.
> -------------------------------------------------------------------------
> #!/usr/bin/perl
> use warnings;
> use strict;
> use LWP::Simple;
>
> my $catalog = get("http://oreilly.com/store/complete.html";);
>
> my $count = 0;
>
> while ($catalog =~ /Perl/) {
> $count++;
> }
>
>
> print "Perl was seen the following number of times in the page : $count
> \n";
> ---------------------------------------------------------------------------
>
> The only place where it was changed was in the pattern matching area where
> i removed the usage of all the modifiers. can some one please answer the
> following questions for me:
>
> 1. Why is the CPU being used so much ? Is the code going in some sort of a
> loop ?
> 2. Does $catalog take single string from and match for the pattern ?
> In this case i am under the impression that the entire value returned by
> the get() method is stored in the $catalog variable. Please correct me if i
> am wrong.
>
> Appreciate your response in this regard.
>
> Thanks
> Jatin
>
> --
> To unsubscribe, e-mail: beginners-unsubscr...@perl.org
> For additional commands, e-mail: beginners-h...@perl.org
> http://learn.perl.org/
>
>
>
