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+\…