perl -a：如何更改列分隔符？

Question

我想读取文件中分隔符为 : 的列。

我这样尝试（因为根据http://www.asciitable.com，冒号的八进制表示是072）：

$ echo "a:b:c"  | perl -a -072 -ne 'print "$F[1]\n";' 

我希望它打印 b，但它不起作用。

Answer 1

查看perlrun中的-F：

% echo "a:b:c" | perl -a -F: -ne 'print "$F[1]\n";'
b

请注意，该值被视为正则表达式，因此某些分隔符可能需要一些额外的转义：

% echo "a.b.c" | perl -a -F. -ne 'print "$F[1]\n";'

% echo "a.b.c" | perl -a -F\\. -ne 'print "$F[1]\n";'
b

Answer 2

-0 指定记录（行）分隔符。这是因为 Perl 接收到三行：

>echo a:b:c | perl -072 -nE"say"
a:
b:
c

由于这些行中没有空格，如果使用 -a，$F[1] 将为空。

-F 指定输入字段分隔符。这就是你想要的。

perl -F: -lanE'say $F[1];'

或者，如果您坚持使用较旧的 Perl：

perl -F: -lane'print $F[1];'

命令行选项记录在 perlrun 中。