【发布时间】：2011-03-08 11:00:03
【问题描述】：
我正在尝试编写一个解析日志的 Perl 脚本，其中每一行的第二个值是日期。该脚本接受三个参数：输入日志文件、开始时间和结束时间。开始时间和结束时间用于解析出介于这两个时间之间的每一行的某个值。但是为了正确运行它，我将开始和结束时间转换为纪元时间。我遇到的问题是将循环“i”值转换回正常时间以与日志文件进行比较。运行localtime($i) 后，我打印了值，只看到打印的参考值而不是实际值。
这是我目前拥有的脚本（正在进行中）：
#!/usr/bin/perl
use strict;
use warnings;
use Time::Local;
use Time::localtime;
use File::stat;
my $sec = 0;
my $min = 0;
my $hour = 0;
my $mday = 0;
my $mon = 0;
my $year = 0;
my $wday = 0;
my $yday = 0;
my $isdst = 0;
##########################
# Get the engine log date
##########################
my $date = `grep -m 1 'Metric' "$ARGV[0]" | awk '{print \$2}'`;
($year,$mon,$mday) = split('-', $date);
$mon--;
#########################################
# Calculate the start and end epoch time
#########################################
($hour,$min,$sec) = split(':', $ARGV[1]);
my $startTime = timelocal($sec,$min,$hour,$mday,$mon,$year);
($hour,$min,$sec) = split(':', $ARGV[2]);
my $endTime = timelocal($sec,$min,$hour,$mday,$mon,$year);
my $theTime = 0;
for (my $i = $startTime; $i <= $endTime + 29; $i++) {
#print "$startTime $i \n";
$theTime = localtime($i);
#my $DBInstance0 = `grep "$hour:$min:$sec" "$ARGV[0]"`;# | grep 'DBInstance-0' | awk '{print \$9}'`;
#print "$DBInstance0\n";
print "$theTime\n";
}
print "$startTime $endTime \n";
输出如下：
Time::tm=ARRAY(0x8cbbd40)
Time::tm=ARRAY(0x8cbc1a0)
Time::tm=ARRAY(0x8cbbe80)
Time::tm=ARRAY(0x8cbc190)
Time::tm=ARRAY(0x8bbb170)
Time::tm=ARRAY(0x8cbc180)
Time::tm=ARRAY(0x8cbbf30)
Time::tm=ARRAY(0x8cbc170)
Time::tm=ARRAY(0x8cbc210)
Time::tm=ARRAY(0x8cbc160)
1275760356 1275760773
我只能访问核心 Perl 模块，无法安装任何其他模块。
【问题讨论】：
-
@Matt：在这种情况下，我建议将您的简历提交至careers.stackoverflow.com。
-
@Ether,@Peter - 有些人为比初创公司更大的公司工作，在这些公司中，使用未经测试的代码所带来的收益远大于使用它的风险价值。当您因代码错误而损失数十亿美元时，您的观点会变得更加繁文缛节。因此，在此基础上对某人粗鲁不仅不会帮助您赢得 Perl 转换，而且是完全不公平的。
-
@Ether - 我不这么认为。我假设“只是使用它并稍后请求宽恕”可能在一家小公司是一种可以接受的态度 - 出于好或坏的原因 - 但通常，出于充分的理由，不尽管个人开发人员对该主题的看法以及我个人喜欢牛仔的方式，但在一家大公司中可以接受
-
此外，在 SO Perl 标签上经常看到的“找另一份工作”的下意识反应与基本恕我直言相去甚远。能够做任何你觉得需要和该死的后果并不总是人们想为特定公司工作的首要原因，很少是主要的。
-
让我解释一下为什么我不能使用未经测试的代码。我为世界上最大的交易所之一工作。如果我使用未经测试的模块并导致某人损失数百万或数十亿美元，则无法原谅。我们练习这种“偏执狂”，因为可能会失去很多东西，并可能使许多国家陷入萧条。 DVK 是正确的，不是每个人都可以“只是使用它，以后再请求原谅”。而且我热爱我的工作，即使我只能使用核心 Perl 模块。在测试模块之前，这确实让我的工作变得更加困难，但这对我来说很好。