Ok, erro idiota no qual fiquei 1h quebrando a cabeça. Ok! Mas me diz uma coisa, como editar um arquivo.
Tipo queria que: open my $in, ">>", $ARGV[0]; my $contig = 0; while (my $line = <$in>){ my $chn = "contig" . $contig; if ($line =~ />(.+)/){ $line =~ s/$1/$chn/; $contig++; } } Funcionasse sem precisar fazer: open my $in, "<", $ARGV[0]; my $contig = 0; my $record = ""; while (my $line = <$in>){ my $chn = "contig" . $contig; if ($line =~ />(.+)/){ $line =~ s/$1/$chn/; $record .= $line; $contig++; } else { $record .= $line; } } open my $out, ">", $ARGV[0]; print $out $record; From: juniiior...@gmail.com Date: Fri, 7 Dec 2012 22:25:19 -0200 To: rio-pm@pm.org Subject: Re: [Rio-pm] Isso não deveria estar certo??? Hi. Não, ué.A regexp começa com "<" e no arquivo tem ">lalalala". []'s 2012/12/7 Aureliano Guedes <guedes_1...@hotmail.com> < _______________________________________________ Rio-pm mailing list Rio-pm@pm.org http://mail.pm.org/mailman/listinfo/rio-pm
_______________________________________________ Rio-pm mailing list Rio-pm@pm.org http://mail.pm.org/mailman/listinfo/rio-pm