Hello!

Thansk for you answer.

what do you mean by 

"Make sure to put $p in list context"

can you put in an example.


Thanks

-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Gaal Yahas
Sent: Thursday, June 28, 2007 10:58 PM
To: Perl in Israel
Subject: Re: [Israel.pm] LWP Q.


I think your m// needs a /g modifier if you want @p to have more than one match.

If you want only the first,

my ($p) = (the match);

Make sure to put $p in list context! Otherwise it'll only indicate
whether the match succeeded.

On 6/28/07, Shlomi Fish <[EMAIL PROTECTED]> wrote:
> On Thursday 28 June 2007, Ernst, Yehuda wrote:
> > hello!
> >
> > I am trying to run this
> >
> > $res = $browser->get ("http........................
> > my @p = $res-> =~ m|somthing(.*?)somthing|;
> >
> > $p[0] is empty.
> >
> > but if i print $res->as_string in the middle
> >
> > $res = $browser->get ("http........................
> > print $res->as_string;
> > my @p = $res-> =~ m|somthing(.*?)somthing|;
> >
> >
> > $p[0] is not empty.
> >
>
> This snippet works for me:
>
> {{{{{{{{{{{{{{
> #!/usr/bin/perl
>
> use strict;
> use warnings;
>
> use LWP::UserAgent;
> use Data::Dumper;
>
> my $ua = LWP::UserAgent->new();
>
> my $res = $ua->get("http://www.shlomifish.org/";);
>
> my @p = ($res->content() =~ m{<p(.*?)</p>});
>
> print Dumper([EMAIL PROTECTED]);
> }}}}}}}}}}}}}}
>
> I'm using perl-5.8.8-12mdv2008.0 on Mandriva Cooker. It would be useful if you
> could provide a full script that reproduces this problem, and mention your
> perl version and platform.
>
> Regards,
>
>         Shlomi Fish
>
> ---------------------------------------------------------------------
> Shlomi Fish      [EMAIL PROTECTED]
> Homepage:        http://www.shlomifish.org/
>
> If it's not in my E-mail it doesn't happen. And if my E-mail is saying
> one thing, and everything else says something else - E-mail will conquer.
>     -- An Israeli Linuxer
> _______________________________________________
> Perl mailing list
> [email protected]
> http://perl.org.il/mailman/listinfo/perl
>


-- 
Gaal Yahas <[EMAIL PROTECTED]>
http://gaal.livejournal.com/
_______________________________________________
Perl mailing list
[email protected]
http://perl.org.il/mailman/listinfo/perl
*************************************************************************************
This e-mail is confidential, the property of NDS Ltd and intended for the 
addressee only.  Any dissemination, copying or distribution of this message or 
any attachments by anyone other than the intended recipient is strictly 
prohibited.  If you have received this message in error, please immediately 
notify the [EMAIL PROTECTED] and destroy the original message.  Messages sent 
to and from NDS may be monitored.  NDS cannot guarantee any message delivery 
method is secure or error-free.  Information could be intercepted, corrupted, 
lost, destroyed, arrive late or incomplete, or contain viruses.  We do not 
accept responsibility for any errors or omissions in this message and/or 
attachment that arise as a result of transmission.  You should carry out your 
own virus checks before opening any attachment.  Any views or opinions 
presented are solely those of the author and do not necessarily represent those 
of NDS.

To protect the environment please do not print this e-mail unless necessary.
**************************************************************************************

_______________________________________________
Perl mailing list
[email protected]
http://perl.org.il/mailman/listinfo/perl

Reply via email to