On Mon, 3 Mar 2014 18:35:55 -0500
shawn wilson <[email protected]> wrote:
> So, when I do this:
> my $src = (grep {/.*(ARIN|APNIC).*(\n)?/; $1} @ret)[0];
> I get a full line and not just the capture:
> # ARIN WHOIS data and services are subject to the Terms of Use
If you can't figure out what's wrong, neither will the poor chap who
gets stuck maintaining it. Use a loop instead:
my $captured;
for $ret ( @ret ){
if( $ret =~ /(ARIN|APNIC)/ ){
$captured = $1;
last;
}
}
--
Don't stop where the ink does.
Shawn
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
http://learn.perl.org/
