linux - 简单的 perl opendir

Question

我对 Perl 完全陌生，刚刚开始学习它。我遇到了我需要运行的这个脚本，其中包含一些网络 Tstat 跟踪数据。但是，我收到错误“无法解析日期”。

生成此代码的代码在这里

foreach my $dir (@trace_dirs) {
 undef @traces;
 opendir(DIR, $dir) || die "Can't open dir: $dir \n";
 @traces = grep { /.out$/ && -d "$dir/$_" } readdir(DIR);
 foreach my $trace (@traces) {
  $trace =~ /^(\d\d)_(\d\d)_(\d\d)_(\w\w\w)_(\d\d\d\d)/;
  $trace_date=&ParseDate("$3/$4/$5 $1:$2") || die "Cannot parse date \n";
  $traces{$trace_date} = $trace;
  $trace_dir{$trace_date} = $dir;
 }
 closedir DIR;
}

有人可以告诉我这段代码在寻找什么吗？

Answer 1

当您遇到这样的问题时，请查看您尝试使用的数据来给自己找麻烦。确保 $trace 中的值符合您的预期，并且您创建的日期字符串符合您的预期:

 print "Trace is [$trace]\n";
 if( $trace =~ /^(\d\d)_(\d\d)_(\d\d)_(\w\w\w)_(\d\d\d\d)/ ) {
     my $date = "$3/$4/$5 $1:$2";
     print "date is [$date]\n";
     $trace_date= ParseDate( $date ) || die "Cannot parse date [$date]\n";
     }

我猜测 $4 中的值(显然是“Jan”、“Feb”等字符串)不是 ParseDate 喜欢的内容。

请注意，您应该仅在成功的模式匹配后使用捕获变量，以免它们在不同的匹配中遗留下来。