linux - 在 Perl 中连接变量

Question

下面是我的代码。据说我想将变量 $process 与文本“processes running”连接起来。

my $process =`ps aux | grep '[c]pu2006' -c `;

my $process2= "$process" . " processes running\n";

print $process2;

我希望输出为:

3 processes running

但结果是:

3   
processes running

有人可以帮我处理这段代码吗？

Answer 1

您的 $process 变量包含一个数字 3 和一个换行符。

您可以使用 chop 或 chomp 删除换行符。

所以你的脚本变成:

my `$process =ps aux | grep '[c]pu2006' -c`;
chomp($process);
my $process2= "$process" . " processes running\n";
print $process2;

chop 和 chomp 有点困惑...

如果您使用的是 unix，则可以使用 chop，因为 unix 仅使用“\n”作为行分隔符。

如果您使用的是 Windows，则可以使用 chomp，因为 chomp 足够智能，可以知道输入行分隔符是什么，并将删除两个字符\r 和\n。

最佳做法是使用 chomp。

如果你想稍微清理一下，你也可以说:

chomp (my $process =`ps aux | grep '[c]pu2006' -c`);
print "$process processes running\n";