非常感谢！请问whilie(1){}具体是什么含义呢？（没看懂这个~）
在 2013年8月20日上午11:20，Weiqiang <lweiqi...@gmail.com>写道：
> 直接给你能用的代码吧，呵呵：
>
> my $infile=$ARGV[0];
> my $outfile=$ARGV[1];
> open my $infh, "<", $infile or die "input file cannot be opened";
> open my $outfh, ">", $outfile or die "output file cannot be created";
>
> while (1) {
> my $line1 = readline $infh;
> my $line2 = readline $infh;
> last unless defined $line1 and $line2;
> chomp($line1);
> chomp($line2);
> print $outfh "$line1\t$line2\n";
>
> }
>
>
>
> 2013/8/20 李相辰 <lixiangche...@gmail.com>
>
>> 还是十分感谢~
>>
>>
>> 在 2013年8月20日上午10:58，Hao Wu <echowu...@gmail.com>写道：
>>
>> 我只会这么多，呵呵。
>>>
>>>
>>> 2013/8/19 李相辰 <lixiangche...@gmail.com>
>>>
>>>> 您好，恐怕我想问的不是文件的读写问题，而是对文本数据进行处理的问题。
>>>>
>>>>
>>>> 在 2013年8月20日上午10:30，Hao Wu <echowu...@gmail.com>写道：
>>>>
>>>> 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 李相辰 <lixiangche...@gmail.com>
>>>>>
>>>>>> 各位好，我有一个数据文件的文本，其中的数据格式如下：
>>>>>> 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 讨论组”论坛。
>>>>>> 要退订此论坛并停止接收此论坛的电子邮件，请发送电子邮件到 perlchina+unsubscr...@googlegroups.com。
>>>>>> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
>>>>>> 通过以下网址访问此论坛：http://groups.google.com/group/perlchina。
>>>>>> 要查看更多选项，请访问 https://groups.google.com/groups/opt_out。
>>>>>>
>>>>>
>>>>> --
>>>>> 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
>>>>> 要退订此论坛并停止接收此论坛的电子邮件，请发送电子邮件到 perlchina+unsubscr...@googlegroups.com。
>>>>> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
>>>>> 通过以下网址访问此论坛：http://groups.google.com/group/perlchina。
>>>>> 要查看更多选项，请访问 https://groups.google.com/groups/opt_out。
>>>>>
>>>>
>>>> --
>>>> 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
>>>> 要退订此论坛并停止接收此论坛的电子邮件，请发送电子邮件到 perlchina+unsubscr...@googlegroups.com。
>>>> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
>>>> 通过以下网址访问此论坛：http://groups.google.com/group/perlchina。
>>>> 要查看更多选项，请访问 https://groups.google.com/groups/opt_out。
>>>>
>>>
>>> --
>>> 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
>>> 要退订此论坛并停止接收此论坛的电子邮件，请发送电子邮件到 perlchina+unsubscr...@googlegroups.com。
>>> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
>>> 通过以下网址访问此论坛：http://groups.google.com/group/perlchina。
>>> 要查看更多选项，请访问 https://groups.google.com/groups/opt_out。
>>>
>>
>> --
>> 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
>> 要退订此论坛并停止接收此论坛的电子邮件，请发送电子邮件到 perlchina+unsubscr...@googlegroups.com。
>> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
>> 通过以下网址访问此论坛：http://groups.google.com/group/perlchina。
>> 要查看更多选项，请访问 https://groups.google.com/groups/opt_out。
>>
>
>
>
> --
>
> From William LI
>
>
> --
> 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
> 要退订此论坛并停止接收此论坛的电子邮件，请发送电子邮件到 perlchina+unsubscr...@googlegroups.com。
> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
> 通过以下网址访问此论坛：http://groups.google.com/group/perlchina。
> 要查看更多选项，请访问 https://groups.google.com/groups/opt_out。
>
--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要退订此论坛并停止接收此论坛的电子邮件，请发送电子邮件到 perlchina+unsubscr...@googlegroups.com。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
通过以下网址访问此论坛：http://groups.google.com/group/perlchina。
要查看更多选项，请访问 https://groups.google.com/groups/opt_out。
