如何在Perl中使用bash命令更多地回顯字符串？

Question

這是我試過的：

my $s = "s" x 1000;
my $r = `echo $s |more`;

但它不起作用，我的程序直接退出...

Answer 1

它在您的示例中不起作用，因為您從不打印$r 。 輸出在變量$r捕獲。 通過使用system()代替，您可以看到輸出打印到STDOUT，但是您不能像您（可能）預期的那樣使用輸出。

做就是了：

print $r;

更新：我改變say print ，因為“echo”已經給你一個換行符。

要逃避shell元字符，如評論中所述，您可以使用quotemeta。

你也應該知道| more 將shell的輸出捕獲到變量時， | more沒有效果。 過程很簡單： echo | more | $r echo | more | $r echo | more | $r ，你也可以跳過more 。

Answer 2

嘗試使用system（）命令：

my $s = "s" x 1000;
my $r = system("echo $s |more");

將顯示你所有的's'，並且在$r你將獲得該命令的結果（在這種情況下為0）。