Perl glob 一个衬垫

Question

我正在使用 Perl One liner 来反转文件内容或执行操作，我能够生成脚本和一个 liner，但是这个 liner 只能通过逐个文件输入来工作。

perl -i -ne '$a=reverse $_;print "$a\n"' <filename>

我想更改我的一个衬垫以从一系列文件中获取输入，但是当我这样做时：

perl -i -ne '$a=reverse $_;print "$a\n"' | ls -al

我只得到 ls -al 的屏幕输出 不知道如何继续。

谢谢

Answer 1

您可以使用 xargs(1)：

ls | xargs perl -i -ne '$a=reverse $_;print "$a\n"' 

Answer 2

perl -nle '$c=reverse;print $c' * .*