linia.pl
#!/usr/bin/perl -w
use strict;
my @v;
while (
@v = split ("\t", $_);
open FILE, "+>", "$v[0].fa";
print FILE $_;
close FILE;
}
#!/usr/bin/perl -w
use strict;
my @v;
while (
@v = split ("\t", $_);
open FILE, "+>", "$v[0].fa";
print FILE $_;
close FILE;
}