在perl中逃離管道

Question

我在perl中使用backtics和pipe時遇到了一些麻煩。 我有以下代碼：

my @arr_lsdev = `lsdev -C | grep inet | awk '{print \$1}'` ;
print Dumper @arr_lsdev ;

但我得到以下錯誤：

sh[2]: 0403-057 Syntax error : `|' is not expected

我猜它與我的逃生命令有關。 我試過逃避| 但它仍會導致相同的錯誤。

操作系統：AIX

殼牌：KSH

Answer 1

請注意，錯誤在第2行。您實際上正在執行

my @arr_lsdev = `lsdev -C | grep inet
 | awk '{print \$1}'` ;

Answer 2

您可以減少管道數量：

my @arr_lsdev = map {(split ' ')[0]} grep {/inet/} `lsdev -C`;