我只会这么多，呵呵。
2013/8/19 李相辰 <[email protected]> > 您好，恐怕我想问的不是文件的读写问题，而是对文本数据进行处理的问题。 > > > 在 2013年8月20日上午10:30，Hao Wu <[email protected]>写道： > > http://learn.perl.org/faq/perlfaq5.html >> >> A Perl program to do these tasks takes the basic form of opening a file, >> printing its lines, then closing the file: >> >> open my $in, '<', $file or die "Can't read old file: $!"; >> open my $out, '>', "$file.new" or die "Can't write new file: $!"; >> >> while( <$in> ) { >> print $out $_; >> } >> >> close $out; >> >> 参考learning perl input 与 output 章节。 >> >> >> >> 2013/8/19 李相辰 <[email protected]> >> >>> 各位好，我有一个数据文件的文本，其中的数据格式如下： >>> 1 69511 A G SNP rs75062661 OR4F5 ENST00000335137 >>> 1 0.65 >>> 1 69534 T C SNP rs190717287 OR4F5 ENST00000335137 >>> 2 0.0005 >>> 1 861275 C T SNP rs199884417 SAMD11 ENST00000598827 >>> 0 0.0005 >>> 1 861292 C G SNP rs191719684 SAMD11 ENST00000598827 >>> 0 0.0014 >>> 1 861315 G A SNP rs200140498 SAMD11 ENST00000598827 >>> 0 0.0009 >>> 1 863258 A G SNP rs185247114 SAMD11 ENST00000598827 >>> 0 0.0005 >>> 1 865544 C T SNP rs144245409 SAMD11 ENST00000342066 >>> 1 0.0005 >>> 1 865545 G A SNP rs201186828 SAMD11 ENST00000342066 >>> 1 0.0018 >>> 1 865584 G A SNP rs148711625 SAMD11 ENST00000598827 >>> 1 0.01 >>> ........... >>> 我想对把 >>> 1 69511 A G SNP rs75062661 OR4F5 ENST00000335137 >>> 1 0.65 >>> 转换成1 69511 A G SNP rs75062661 OR4F5 ENST00000335137 1 0.65 >>> 也就是把没两行进行合并，然后添加一个制表符。 >>> 本人新手，不太清楚perl是怎样实现~谢谢~ >>> >>> -- >>> 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 >>> 要退订此论坛并停止接收此论坛的电子邮件，请发送电子邮件到 [email protected]。 >>> 要向此网上论坛发帖，请发送电子邮件至 [email protected]。 >>> 通过以下网址访问此论坛：http://groups.google.com/group/perlchina。 >>> 要查看更多选项，请访问 https://groups.google.com/groups/opt_out。 >>> >> >> -- >> 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 >> 要退订此论坛并停止接收此论坛的电子邮件，请发送电子邮件到 [email protected]。 >> 要向此网上论坛发帖，请发送电子邮件至 [email protected]。 >> 通过以下网址访问此论坛：http://groups.google.com/group/perlchina。 >> 要查看更多选项，请访问 https://groups.google.com/groups/opt_out。 >> > > -- > 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 > 要退订此论坛并停止接收此论坛的电子邮件，请发送电子邮件到 [email protected]。 > 要向此网上论坛发帖，请发送电子邮件至 [email protected]。 > 通过以下网址访问此论坛：http://groups.google.com/group/perlchina。 > 要查看更多选项，请访问 https://groups.google.com/groups/opt_out。 > -- 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 要退订此论坛并停止接收此论坛的电子邮件，请发送电子邮件到 [email protected]。 要向此网上论坛发帖，请发送电子邮件至 [email protected]。 通过以下网址访问此论坛：http://groups.google.com/group/perlchina。 要查看更多选项，请访问 https://groups.google.com/groups/opt_out。
