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: [email protected]
Date: Fri, 7 Dec 2012 22:25:19 -0200
To: [email protected]
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 <[email protected]>
<
_______________________________________________
Rio-pm mailing list
[email protected]
http://mail.pm.org/mailman/listinfo/rio-pm
_______________________________________________
Rio-pm mailing list
[email protected]
http://mail.pm.org/mailman/listinfo/rio-pm
