3 Tips in Perl Programming

1. 获取当前时间
Perl 有一个函数 localtime 可以用来实现这个功能。在具体使用的过程中需要注意的是，它返回的月份数值是以 0 为基准的，而年份数值是在减掉 1900 之后的值，所以很多时候都需要进行相应的调整：

# construct log file name
my ($sec, $min, $hour, $day, $month, $year) = (localtime) [0, 1, 2, 3, 4, 5];
$month = $month + 1;
$year = $year + 1900;
 
my $local_node;
$local_node = qx{hostname};
chomp $local_node;
 
my $filename = sprintf("%04d%02d%02d%02d%02d%02d", $year, $month, $day, $hour, $min, $sec);
$filename = "kill_crsd_" . $local_node . "_" . $filename . ".log";
my $KILL_CRSD_LOG = catfile(curdir(), $filename);

2. 一个写日志文件的函数
经常跑一些小脚本去循环做一些破坏性测试，由于有些操作具有重启节点的潜在可能性，所以这样一个需求也就随之而来。下面就是一个我用来写日志文件的函数的实现：

^?View Code PERL

#
# Write trace file
#
# trace(@content)
#
sub trace(@)
{
    my ($sec, $min, $hour, $day, $month, $year) = (localtime) [0, 1, 2, 3, 4, 5];
    $month = $month + 1;
    $year = $year + 1900;
 
    open(LOGFILE, ">>$KILL_CRSD_LOG") or die "ERROR: Can't open $KILL_CRSD_LOG: $!";
    printf LOGFILE "%04d-%02d-%02d %02d:%02d:%02d: @_\n", $year, $month, $day, $hour, $min, $sec;
    close (LOGFILE);
}