Monges, cade o erro???
#!/usr/bin/env perl
use strict;
use autodie;
open my $in, "<", $ARGV[0];
my $contig = 0;
while (my $line = <$in>){
my $ctg = "contig" . $contig;
#print $line;
if ($line =~ /<(.+)/){
print "Ok\n";
$line = s/$1/$ctg/;
print $line;
$contig++;
}
}
O arquivo é algo como
>blablabla
ACTGAACAGTAGCTACTGACTCGTACGCTCGTAGC
>lalalala
CAGCTGATCGATCGTAGCATGCTACG
_______________________________________________
Rio-pm mailing list
[email protected]
http://mail.pm.org/mailman/listinfo/rio-pm
