這個(gè)程序出錯(cuò)在那了呢？求指教

jerryzhao7

Unigene2434   GO:0050794   GO:0016491 GO:0030120                                            
Unigene19825 GO:0048193 GO:0030137 GO:0030120 GO:0019901 GO:0015031               
Unigene26885 GO:0046872 GO:0016491
轉(zhuǎn)換為
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;
結(jié)果輸出的是
? n i g e n e 2 3 4 3 1   G O : 0 0 7 0 0 1 1

rubyish

這問題我糾結(jié)了一下午，一直在糾結(jié) ,
試了一下午都沒錯(cuò)啊

xiumu2280

在最后加個(gè)\n 試試

stanley_tam

1. open Out, ">h:Output.txt" or die "Can't create output file"
   
2. 
   
3. 這個(gè)是不是應(yīng)該下面這樣，貌似少了/和;
   
4. open Out, ">h:/Output.txt" or die "Can't create output file";

復(fù)制代碼

jerryzhao7

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

stray_eagle

回復(fù) 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;