Perl警告和regex问题在regexp编译中使用未初始化的值

Question

我正在从我的主要Perl程序中调用以下脚本。 该脚本采用进程名称并返回其PID。 通过使用require关键字，脚本包含在我的主要perl代码中：

require "getPid.pl";

并使用以下命令调用：

&pidGetter($processName);

getPid.pl是：

#!/usr/bin/perl -w

use strict;
use warnings;

use Proc::ProcessTable;

pidGetter($ARGV[0]);

sub pidGetter
{
   my $ret="PROCESS ID NOT FOUND\n";
   my $t = new Proc::ProcessTable;
   my $procName = $_[0];

   foreach my $p (@{$t->table})
   {
      if ($p->fname =~ /$procName/)
      {
         $ret = $p->pid;
      }   
   }

   return $ret;
}          

但是，调用脚本时，出现以下警告：

在getPid.pl第19行的regexp编译中使用未初始化的值$ procName

该脚本的其余部分似乎运行正常。 据我了解，$ procName由$ procName =＆_ [0];初始化。

我已经输入了打印语句进行调试，并且$procName确实返回了一个值，因此已对其进行了初始化。 有人知道我为什么收到这些警告吗？

Answer 1

require "getPid.pl"; 评估getPid.pl包含的代码。 所以，你实际上调用pidGetter()函数两次：在require “的D脚本，并在主脚本。 作为$ARGV[0]是undef内部require “d脚本，你得到的警告。