Manish Sapariya [MS], on Wednesday, May 18, 2005 at 11:12 (+0530)
typed:
MS> Thats really neat way of writing the expression I was looking for.
MS> But somehow I couldnt get the following compiled. It says
heh, ok, this will work:
#!/usr/bin/perl
use strict;
use warnings;
my $a="1: 192.168.0.180:32866 - 192.168.0.183:143 (a2b) 14< (complete)";
my $ip = '((?:\d{1,3}\.){3}\d{1,3})';
print "ip = $1\n--\n" if ( $a =~ /$ip/ );
if ( my ($myip) = $a =~ $ip ) { print "ip = $myip" }
__END__
1. I think you should use "use strict;" and after that "use warnings;".
2. regexp operator is =~
3. you dont need parenthesis around $ip
--
How do you protect mail on web? I use http://www.2pu.net
["Bother" said Pooh as he found the hook in the fish he had swallowed]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
