outfh和$outfh不是一个东西。。。
2013/8/20 李相辰 <lixiangche...@gmail.com>
> 不知道是不是我输入输出文件操作有问题，运行结果输出为空~我把代码改成如下:
> open infh, "<", $infile = "Fetch_Result_23.txt" or die "input file cannot
> be opened";
> open outfh, ">", $outfile = "Fetch_Result_23_New.txt" or die "output file
> cannot be created";
>
> while (1) {
> $line1 = <infh>;
> $line2 = <infh>;
> last unless defined $line1 and $line2;
> chomp($line1);
> chomp($line2);
> print $outfh "$line1\t$line2\n";
>
> }
> 但是没有结果~（输入的Fetch_Result_All.txt跟我发帖时附的数据格式是一样的~我把数据上传）
>
>
> 在 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。
>
--
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。
