无法定位对象方法 - perl脚本

时间:2012-06-19 17:44:14

标签: perl

Perl很新,所以这里可能有一个非常明显的解决方案。我正在浏览日志文件并基本上将某些内容添加到哈希中但我一直得到:

“找不到对象方法”1339384721“via package”serv.int“(也许你忘了在logTest.pl第37行第9行加载”serv.int“?)” 我已经初始化了这些变量和所有内容,所以我不明白为什么perl会抱怨...

#!/usr/bin/perl -w
use strict;
use warnings;

my $LOGFILE = '/Users/user/Desktop/logTest';
my $downTime = 0;
my $serviceName = 0;
my %downTimeHash = ();

open(LOGFILE, $LOGFILE) or die ("Couldn't open the file.");

foreach my $line (<LOGFILE>) {
chomp($line);


#Checks for 'STATE' lines down
if ($line=~/\s*;DOWN*/ && ($line=~/STATE:\s+([^;]+)/ || $line=~/ALERT:\s+([^;]+)/)) {
#Get time service went down
    if ($line=~/\[(\d*)\]*/) {
        $downTime = $1;
    }
#Get service that went down
    if ($line=~/STATE:\s+([^;]+)/ || $line=~/ALERT:\s+([^;]+)/) {
        $serviceName = $1;
    }   
#Add service and down time to hash
%downTimeHash = ($serviceName->$downTime);
}
}

print "%downTimeHash \n";

1 个答案:

答案 0 :(得分:0)

我应该使用=>而不是->