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 Rio-pm@pm.org http://mail.pm.org/mailman/listinfo/rio-pm