可以“perl -a”以某种方式使用原始空白重新加入@F吗？

我的输入有多个标签和空格,以便于阅读.我想使用perl -a修改字段,然后以原始形式打印出该行. (数据来自findup,显示重复文件的数量和他们浪费的空间.)输入是：

2 * 4096    backup/photos/photo.jpg photos/photo.jpg
2 * 111276032   backup/books/book.pdf book.pdf

输出会将字段3转换为千字节,如下所示：

2 * 4 KB    backup/photos/photo.jpg photos/photo.jpg
2 * 108668 KB   backup/books/book.pdf book.pdf

在我的梦想世界中,这将是我的代码,因为我可以将perl自动重新组合@F并保留原始空白：

perl -lanE '$F[2]=int($F[2]/1024)." KB"; print;'

在现实生活中,加入单个空间似乎是我唯一的选择：

perl -lanE '$F[2]=int($F[2]/1024)." KB"; print join(" ",@F);'

是否有任何自动变量可以记住分隔符？如果我有这样的魔术数组,代码将是：

perl -lanE 'BEGIN{use List::Util "reduce";} $F[2]=int($F[2]/1024)." KB"; print reduce { $a . shift(@magic) . $b } @F;'

解决方法

不,没有这样的魔法物品.你可以手工完成

perl -wnE'@p = split /(\s+)/; $p[4] = int($p[4]/1024); print @p' input.txt

分裂模式中的捕获parens意味着它也会被返回,因此您可以捕获精确的空间.由于空间在数组中,我们现在需要第五个字段.

事实证明,-F具有相同的属性.感谢Сухой27.然后

perl -F'(\s+)' -lanE'$F[4] = int($F[4]/1024); say @F' input.txt

注意：with 5.20.0“-F现在暗示-a和-a暗示-n”.感谢ysth.

原文地址：https://www.jb51.cc/Perl/241722.html