Regex match question 1

[travs69]

I currently have this code but I'm sure there's a way to do it in a one line match. Regex to pull both out=/(.*):.*\/(.*):/
If the second IP address is 0.0.0.0 return the first IP else keep the second

$test = '1.1.1.1:1234/0.0.0.0:4321';
($test2) = $test =~ /.*\/(.*):/;
if ($test2 eq '0.0.0.0') {
  ($test2) = $test =~ /(.*):.*\//;
}

print "$test2\n";

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Travis - Those who say it cannot be done are usually interrupted by someone else doing it; Give the wrong symptoms, get the wrong solutions;

 

[Kirsle]

$ perl
$test = '1.1.1.1:1234/0.0.0.0:4321';
my (@re) = $test =~ /^(.*):.*\/(.*):.*$/;
my $test2 = $re[1] eq '0.0.0.0' ? $re[0] : $re[1];
print "$test2\n";
__END__
1.1.1.1

This at least gets it down to only 2 lines and only 1 regexp being run.

*tries harder*

$ perl
$test = '1.1.1.1:1234/0.0.0.0:4321';
$test2 = ($test =~ m/^(.*):.*\/(.*):.*$/ && $2 eq '0.0.0.0' ? $1 : $2);
print "$test2\n";

Here's a one-liner.

Kirsle.net | My personal homepage

perl -e '$|=$i=1;print" oo\n<|>\n_|_";x:sleep$|;print"\b",$i++%2?"/":"_";goto x;'

 

[travs69]

Thanks..

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Travis - Those who say it cannot be done are usually interrupted by someone else doing it; Give the wrong symptoms, get the wrong solutions;