[Rio-pm] Isso não deveria estar certo???
Aureliano Guedes
guedes_1000 em hotmail.com
Sexta Dezembro 7 16:52:02 PST 2012
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: juniiior182 em gmail.com
Date: Fri, 7 Dec 2012 22:25:19 -0200
To: rio-pm em 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_1000 em hotmail.com>
<
_______________________________________________
Rio-pm mailing list
Rio-pm em pm.org
http://mail.pm.org/mailman/listinfo/rio-pm
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/rio-pm/attachments/20121208/3c577c0f/attachment.html>
Mais detalhes sobre a lista de discussão Rio-pm