[Rio-pm] Isso não deveria estar certo???

[Aureliano Guedes]

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>