perl - 无法检查变量

Question

我很难检查 $return 变量。 打印“return =”。 $return ."\n"; 总是返回空白，即使进程仍在运行。我确实收到有关未初始化变量的警告。有人可以解释一下吗？

my $process="MInstaller";
my $return=` ps -eaf |grep $process | grep -v grep`;
sub chk_proc{
  print "in chk_proc\n";
  print "\n";
  print "return = ". $return ."\n";
  while ( my $return ne "" ) {
   sleep(5);
  };
};

Answer 1

你很接近。您的代码不起作用，因为

中的变量 $return

while ( my $return ne "" ) {

是另一个变量(在 while 的范围内声明)作为您的第一个 $return。

你可以尝试下一个:

use 5.014;
use warnings;

chk_proc('[M]Installer'); #use the [] trick to avoid the 'grep -v grep :)

sub chk_proc{ while( qx(ps -eaf |grep $_[0]) ) {sleep 5} };