in reply to Re^2: Pattern Matching Q?
in thread Pattern Matching Q?

All pattern matches are stored in $1, $2, $3 depending on the set of parens that matched. In this case it will be stored in $1.

Another way of looking at this is (to borrow from educated_foo's answer: ($url = $1) if (m{<strong.*?(http://.*?)&});

Replies are listed 'Best First'.
Re^4: Pattern Matching Q?
by 80degreez (Initiate) on Nov 27, 2007 at 19:00 UTC
    I tried with the following code: 
    use strict;
use WWW::Mechanize;
use HTTP::Cookies;
use HTML::TokeParser::Simple;
my $mech = WWW::Mechanize->new( stack_depth => 1, agent =>"Mozilla/5.0
+ (X11; U; Linux i68+6; en-US; rv:1.7) Gecko/20040918 Firefox/0.9.3 ")
+;
my $pic = "C:\/LV3.JPG";
$mech->cookie_jar( HTTP::Cookies->new(stack_depth => 1) );
$mech->get("http://tinypic.com");
if($mech->content() =~ /UPLOAD NOW/ ){
    print "TinyPic loaded... ";
    $mech->form_name("upload_form");
    $mech->field('the_file' => $pic);
    $mech->submit();
    m{
     <strong                    # match "<strong"
     .*?                        # skip to the next
     (                          # (start capturing)
         http://                # "http://"
         .*?                    # skip to the next
     )                          # (stop capturing)
&                               # ampersand
}x
    print $1;
}

    [download]
    and it returned a syntax error. I also tried with the other version you gave me here: 
    use strict;
use WWW::Mechanize;
use HTTP::Cookies;
use HTML::TokeParser::Simple;
my $mech = WWW::Mechanize->new( stack_depth => 1, agent =>"Mozilla/5.0
+ (X11; U; Linux i68+6; en-US; rv:1.7) Gecko/20040918 Firefox/0.9.3 ")
+;
my $pic = "C:\/LV3.JPG";
$mech->cookie_jar( HTTP::Cookies->new(stack_depth => 1) );
$mech->get("http://tinypic.com");
if($mech->content() =~ /UPLOAD NOW/ ){
    print "TinyPic loaded... ";
    $mech->form_name("upload_form");
    $mech->field('the_file' => $pic);
    $mech->submit();
    m{<strong.*?(http://.*?)&};
    print $1;
}

    [download]
    This version didn't get a syntax error but also didn't output anything
[reply]
[d/l]
[select]
      the matching operators work against the $_ default variable, unless otherwise specified. The easiest thing to do here is to load that variable with he contents that you want to search, preferably within a local block:
      my $url = undef;
local{
  $_ = $mech->content; #not sure if mech let's you do  
                       #this...basically you want to load
                       #the $_ var with the data that holds
                       #the url
  m{<strong.*?(http://.*?)&};
  $url = $1;
}
print $url;

      [download]
[reply]
[d/l]
      The first version gives you a syntax error because you don't terminate the line (there is no semi-colon). The second version is syntactically correct, but my guess is that the $_ variable is not the one you want to be doing the regex on.

      I am not familiar enough with WWW::Mechanize to know how to get the returned content. You probably want to be searching something besides the implicit $_ that m{} uses.

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom