Re: [PerlChina] perl如何对多行文件进行操作？

perl -ne  '$.%2==0 ? print : chomp && print'  file.txt

perl 命令行是为了方便而用，命令行详解看我7年前 2006 年的翻译 :） http://bbs.chinaunix.net/forum.php?mod=viewthread&tid=499434

On Tue, Aug 20, 2013 at 2:47 PM, 夏凯 <walkerxk@gmail.com> wrote:

On 2013年08月20日 14:34, 54chen wrote:

用awk一行就搞定了。
cat temp.txt |awk '{ORS=""}{RS=""}{FS="\n"}{x=1;while(x<NF){if(x%2==0){print "\n";}else{print "\t"} print $x;x++}}'

真麻烦xargs -d'\n' -n2 <urfile

--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要退订此论坛并停止接收此论坛的电子邮件，请发送电子邮件到 perlchina+unsubscribe@googlegroups.com。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
通过以下网址访问此论坛：http://groups.google.com/group/perlchina。
要查看更多选项，请访问 https://groups.google.com/groups/opt_out。

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要退订此论坛并停止接收此论坛的电子邮件，请发送电子邮件到 perlchina+unsubscribe@googlegroups.com。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
通过以下网址访问此论坛：http://groups.google.com/group/perlchina。
要查看更多选项，请访问 https://groups.google.com/groups/opt_out。