値がこのようになるスカラーがあります。
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#
Perl でこれから Timefield (12:14:38) と IP (152.14.189.99) を取得したいと思います。これを使ってみた..
$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;