соответствие шаблону в одной строке в perl

Question

У меня есть скаляр, значение которого будет таким.

Sun Sep 9 12:14:56 2012 : [Pro] Write to file(/root/mesh/MeshBed/trunk/meshproc/neighInfo/neighbors-list_152. 14.189.6) : #ip=152.14.189.99 neighinfo=NULL mac=06:02:6F:A7:3E:BC# 

Я хочу взять TIMEFIELD (12:14:38) и ф (152.14.189.99) от этого в Perl. Я попытался использовать это.

$p =~ /ip\=(\.\d+\.\d+\.\d+\d+)/; 
print $1; 

Это метация ошибки компиляции. Может ли кто-нибудь решить это.

#!/usr/bin/perl -w 

use strict; 
use warnings; 

my $p = "Sun Sep 9 12:14:56 2012 : [Pro] Write to file(/root/mesh/MeshBed/trunk/meshproc/neighInfo/neighbors-list_152. 14.189.6) : #ip=152.14.189.99 neighinfo=NULL mac=06:02:6F:A7:3E:BC#"; 

$p =~ /ip\=(\.\d+\.\d+\.\d+\d+)/; 

print $1; 

Answer 1

Помимо ошибки компиляции, которую невозможно понять без больше контекста, вот что вы могли бы сделать, учитывая, что ваш скаляр называется $p:

my ($time, $ip) = $p =~/(\d+[.:]\d+[.:]\d+(?:\.\d+)?)/g; 

EDIT: Это работает ваш новый формат строки:

my ($time, $ip) = $p =~ /(\d+:\d+:\d+).+ip=((?:\d+\.){3}\d+)/; 

Answer 2

При запуске, это дает ответ, который я ожидал:

#!/usr/bin/perl -w 

use strict; 
use warnings; 

my $p = "Sun Sep 9 12:14:56 2012 : [Pro] Write to file(/root/mesh/MeshBed/trunk/meshproc/neighInfo/neighbors-list_152. 14.189.6) : #ip=152.14.189.99 neighinfo=NULL mac=06:02:6F:A7:3E:BC#"; 


print "Time: $1; IP: $2\n" 
    if ($p =~ /(\d+:\d+:\d+) .*ip=(\d+\.\d+\.\d+\.\d+)/); 

Регулярное выражение для IP-адреса больше не требует ведущей точки и ожидает точку между третьим и четвертым номерами. Регулярное выражение для времени довольно прямолинейно.

Выход:

Time: 12:14:56; IP: 152.14.189.99