作者pziyout (pziyout)
看板Perl
标题Re: [问题] 一个关於perl读档的问题 请各位高手帮忙！
时间Fri May 2 11:06:27 2008
※ 引述《pqman (who want some?)》之铭言：
: 想请问大家
: 现在我有一个档案 file.txt
: 内容是
: a b c d e
: f g h i j
: 1 2 3 4 5
: 6 7 8 9 10
: 我想把这群资料重新排列成
: a 1 b 2 c 3 d 4 e 5 f 6 g 7 h 8 i 9 j 10
: 然後输出到data.txt
: 请问我该怎麽用perl达成呢？
: 谢谢喔！！
open(A,"file.txt") ;
open(B,"> data.txt") ;
/\d/ ? push( @d , split ) : push( @a , split ) for <A> ;
print B "$a[$_] $d[$_] " for 0 .. $#a ;
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.115.25.24
※ 编辑: pziyout 来自: 140.115.25.24 (05/02 11:07)