> On Jan 18, 2015, at 9:03 AM, Mike <ekimduna...@gmail.com> wrote:
>
> I was able to find match extraction in the perldoc.
>
> Here is a snippet of what I have.
>
> my $insult = ( $mech->text =~ m/Insulter\ (.*)\ Taken/ );
> print "$insult\n";
>
> But $insult is being populated with: 1
>
> It should be populated with text. Can anyone tell me what I'm doing wrong
> here?
Your error is assigning the return value of the regular expression in a scalar
context. In scalar context, a regular expression returns true or false
indicating a match (or not). In array context, however, it returns the captured
subexpressions as a list.
Try forcing the assignment into array context:
my( $insult ) = ( $mech->text =~ m/Insulter\ (.*)\ Taken/ );
You can also use the capture variables $1, $2, $3, etc., which will contain the
captured subexpressions:
my $insult;
if( $mech->text =~ m/Insulter\ (.*)\ Taken/ ) ) {
$insult = $1;
}
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
