如何从我在 Perl 中用反引号捕获的输出中修剪空格？

Question

我正在从外部程序捕获一些输出：

  my $cmd = "grep -h $text $file2 $file1 | tail -1 | awk '{print \$NF }' ";
  my $port_number;
  $port_number =`$cmd`;

  print "port No : ==$port_number==";

输出在端口号周围有额外的空格：

port No : == 2323

==

我试过chomp但它不起作用。

Answer 1

来自perldoc：“您实际上可以 chomp 任何左值，包括赋值：”

所以你要：

chomp($port_number =`$cmd`);