这个程序出错在那了呢？求指教

jerryzhao7

Unigene2434   GO:0050794   GO:0016491 GO:0030120                                            
Unigene19825 GO:0048193 GO:0030137 GO:0030120 GO:0019901 GO:0015031               
Unigene26885 GO:0046872 GO:0016491
转换为
Unigene2434     GO:0050794
Unigene2434     GO:0016491
Unigene2434     GO:0030120
Unigene19825    GO:0048193
Unigene19825    GO:0030137
Unigene19825    GO:0030120
Unigene19825    GO:0019901
Unigene19825    GO:0015031
Unigene26885    GO:0046872
Unigene26885    GO:0016491
下列程序
#!/usr/bin/perl

print "Hello, World...\n";
open Src, "H:\AA.txt" or die "Can't open source file";
open Out, ">h:Output.txt" or die "Can't create output file"
while ( <Src> ) {
        my @temp = split /\s+/, $_;
    my $key = shift @temp;
    print Out "$/$key $_" foreach @temp;
}
close Src;
结果输出的是
? n i g e n e 2 3 4 3 1   G O : 0 0 7 0 0 1 1

rubyish

这问题我纠结了一下午，一直在纠结 ,
试了一下午都没错啊

xiumu2280

在最后加个\n 试试

stanley_tam

1. open Out, ">h:Output.txt" or die "Can't create output file"
   
2. 
   
3. 这个是不是应该下面这样，貌似少了/和;
   
4. open Out, ">h:/Output.txt" or die "Can't create output file";

复制代码

jerryzhao7

程序的作者解释说 可能是我本省文件里 加密了 有防治copy的功能 因此里面有隐藏的字符

stray_eagle

回复 3# xiumu2280


#!/usr/bin/perl
use warnings;
use strict;

open Src, "a.txt" or die "Can't open source file,$!";
open Out, ">c.txt" or die "Can't create output file,$!";
while ( <Src> )
{
    my @temp = split /\s+/;
    my $key = shift @temp;
    print Out "$key $_\n" foreach @temp;
}
close(Out);
close Src;