Chris E. Rempola wrote:
How would you match Parenthesis in Perl?
- STRING -
Received: from 10.143.205.68.abc.def.gh.com (10.205.143.238)
- /STRING -
I want to be able to grab the IP address in (10.205.143.238).
Thanks in advance.
#/usr/bin/perl
use warnings;
use strict;
#use re 'debug';
my $f = "Received: from 10.143.205.68.abc.def.gh.com (10.205.143.238)";
print $&, if $f=~m/\S+$/;
Goksie
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
