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

Question

为了便于阅读，我的输入混合了制表符和 space。我想使用 perl -a 修改字段，然后以原始形式打印出该行。（数据来自 findup，显示了重复文件的数量以及它们浪费的 space。）输入是：

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 并保留原来的白色space:

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

在现实生活中，加入单身space似乎是我唯一的选择：

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;'

Answer 1

不，没有这样的魔法物品。不过你可以手动完成

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

split 模式中的捕获括号意味着它也被返回，因此您捕获了精确的空格。由于空格在数组中，我们现在需要第五个字段。

事实证明，-F 具有相同的属性。感谢 Сухой27。那么

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

注：with 5.20.0 "-F now implies -a and -a implies -n". Thanks to ysth.

Answer 2

您可以找到该行的正确部分并进行修改：

perl -wpE's/^\s*+(?>\S+\s+){2}\K(\S+)/int(\/1024) . " KB"/e'

Can "perl -a" somehow re-join @F using the original whitespace?