如何解决“在连接 (.) 或字符串 at 中使用未初始化的值 $2”

Question

下面是我的代码。我想在一行中打印数据 $1 和 $2 并用, 拆分它。为什么我不能打印数据？

#!/usr/intel/bin/perl

use strict;
use warnings;

use IO::Uncompress::Gunzip qw(gunzip $GunzipError);

my $input = "par_disp_fabric.all_max_lowvcc_qor.rpt.gz";
my $output = "par_disp_fabric.all_max_lowvcc_qor.txt";

gunzip $input => $output
or die "gunzip failed: $GunzipError\n";

open (FILE, '<',"$output") or die "Cannot open $output\n";

while (<FILE>) {
  my $line = $_;
  chomp ($line);

  if ($line =~ m/^\s+Timing Path Group \'(\S+)\'/) {
    $line = $1;

    if ($line =~ m/^\s+Levels of Logic:\s+(\S+)/) {
      $line = $2;
    }
  }
  print "$1,$2\n";
}

close (FILE);

Answer 1

你的程序的核心在这里：

if ($line =~ m/^\s+Timing Path Group \'(\S+)\'/) {
  $line = $1;

  if ($line =~ m/^\s+Levels of Logic:\s+(\S+)/) {
    $line = $2;
  }
}

当您将字符串与包含捕获括号集的正则表达式匹配时，会设置正则表达式捕获变量（$1、$2 等）。第一个捕获括号设置$1 的值，第二个捕获括号设置$2 的值，依此类推。为了给$2 赋值，您需要匹配一个包含两组捕获括号的正则表达式。

您的两个正则表达式仅包含一组捕获括号。因此，您的每场比赛只会设置$1。 $2 永远不会被赋予一个值 - 导致您看到的警告。

您需要重新考虑代码中的逻辑。我不确定你为什么认为$2 在这里会有价值。您的代码有点混乱，所以我无法提供更具体的解决方案。

不过，我可以给你一些更一般的建议：

• 使用词法文件句柄和open() 的三参数版本。

  open my $fh, '<', "$output"
  

• $output 周围不需要引号。

  open my $fh, '<', $output
  

• 我知道您为什么要这样做，但$output 是您读取的文件的一个可能令人困惑的名称。考虑改变它。

• 始终在 open() 错误消息中包含 $!。

  open my $fh, '<', $output or die "Cannot open '$output': $!\n";
  

• 您的$line 变量似乎没有必要。为什么不将行数据保留在$_ 中，这将简化您的代码：

  while (<$fh>) {
    chomp; # works on $_ by default
    if (/some regex/) { # works on $_ by default
      # etc...
    }
  }