Выбор IP из строки

[Alexandr]

Как выбрать корректный IP из след. строк:
\'\'
\'unknown\'
\'127.0.0.1, unknown\'
\'127.0.0.1\'
\'127.0.0.1, 123.123.0.23\'
\'127.0.0.1, 123.123.0.23, 123.123.0.23\'
?
Т.е. необходимо забирать только правую часть(если они перечислены ч/з зпт.), а первых 3-х случаях обламывать проверку

[Chs]

Код: [Выделить]


m/\\,\\s+\\d{1,3}\\.\\d{1,3}\\.\\d{1,3}\\.\\d{1,3}/


[Alexandr]

Это как прикрутить?

[Wyclef]

Это как прикрутить?

$line = \'127.0.0.1, 123.123.0.23, 123.123.0.23\';

if ($line =~ m/\\,\\s+(\\d{1,3}\\.\\d{1,3}\\.\\d{1,3}\\.\\d{1,3})$/) {
    $ip = $1;
}

print $ip;

[innin]

регулярное выражение от Джеффри Фридла ( http://www.oreilly.com/catalog/regex2 ):

^([01]?\\d\\d?|2[0-4]\\d|25[0-5])\\.([01]?\\d\\d?|2[0-4]\\d|25[0-5])\\.([01]?\\d\\d?|2[0-4]\\d|25[0-5])\\.([01]?\\d\\d?|2[0-4]\\d|25[0-5])$