可以“perl -a”以某种方式使用原始空白重新加入@F吗?
发布时间:2020-12-15 22:06:41 所属栏目:大数据 来源:网络整理
导读:我的输入有多个标签和空格,以便于阅读.我想使用perl -a修改字段,然后以原始形式打印出该行. (数据来自findup,显示重复文件的数量和他们浪费的空间.)输入是: 2 * 4096 backup/photos/photo.jpg photos/photo.jpg2 * 111276032 backup/books/book.pdf book.pd
我的输入有多个标签和空格,以便于阅读.我想使用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. (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |