きょうの御題

コード

IPv4アドレスを２つ含む文字列から、IPアドレスの部分を取り出す。
動くけどダメなやり方・・・だ。



#!/usr/bin/perl

$e='(host 192.168.0.1 and host 192.168.0.29) and (tcp port 4443 and tcp port 2215)';
$digit = q{[0-9]};

$IPv4address = qq{$digit+\\.$digit+\\.$digit+\\.$digit+};

$e=~/($IPv4address)/;

print $1,"\n";

$e=~s/$1//;

$e=~/($IPv4address)/;

print $1,"\n";