作者Andor (柠檬汁)
看板perl
标题Re: [问题] remove columns from data sheet
时间Wed Aug 23 18:34:36 2006
※ 引述《quake3 (AA加油...)》之铭言:
: 我有一个文字档
: 内容为:
: abc 2.22 333 abd @@@
: sss ede 663 111.11 ###
: 1.02 5.78 9.99 2.00 $$$
: 请问有什麽模组, 类似cut指令一样
: 可以删掉其中几个column
: 比如说删掉第二, 第四列
: output为
: abc 333 @@@
: sss 663 ###
: 1.02 9.99 $$$
perl -aF'(?<!^)(?<!\x20)\x20' -pe '$_ = join(" ", @F[0, 2, 4..$#F])' 文字档名
如需在原始档案上直接改,加上 -i.bak 就好。
详细用法请参阅 perldoc perlrun 和 perldoc perlre 。
顺便请教:为何在 -F 中无法直接使用 space 字元而要写成 \x20 方可?
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 143.89.144.107
1F:推 LiloHuang:延伸正规表示法会忽略空白 08/24 10:29