我的输入有多个标签和空格,以便于阅读.我想使用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意味着它也会被返回,因此您可以捕获精确的空间.由于空间在数组中,我们现在需要第五个字段.
perl -F'(\s+)' -lanE'$F[4] = int($F[4]/1024); say @F' input.txt
注意：with 5.20.0“-F现在暗示-a和-a暗示-n”.感谢ysth.