Re^4: writing array element to a file

[francesca1987]

Hi R! I modified the script as you suggested, while (my $line=<$in>) { if($line=~/^>/) { my @vettore=split(/\s+/, $line); print $out "$vettore1\n"; } } but the output file only contained 0, which is the number of the first line. What's I did wrong?

[Random_Walk]

It looks like you missed the square brackets around the array index in the print line.

print $out "vettore1\n";  # bad

print $out "vettore[1]\n; # good

Cheers,
R.

[francesca1987]

It wasn't the problem, brakets were there!

my $infile = "rep_set_ass_tax.fna";
my $outfile = "seq_id.txt";
open my $in,  '<',  $infile  or die "Can't read $infile; $!\n"; 
open my $out, '>>', $outfile or die "Can't read $outfile; $!\n"; 
while (my $line=<$in>) { 
    if($line=~/^>/) {          
        my @vettore=split(/\s+/, $line);  
    print $out "$vettore[1]\n";
    } 
}