<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 10pt;
font-family:Tahoma
}
--></style></head>
<body class='hmmessage'><div dir='ltr'>
Ok, erro idiota no qual fiquei 1h quebrando a cabeça.<br>Ok!<br><br>Mas me diz uma coisa, como editar um arquivo.<br><br>Tipo queria que:<br><br>open my $in, ">>", $ARGV[0];<br>my $contig = 0;<br>while (my $line = <$in>){<br> my $chn = "contig" . $contig;<br> if ($line =~ />(.+)/){<br> $line =~ s/$1/$chn/;<br> $contig++;<br> }<br>}<br><br>Funcionasse sem precisar fazer:<br><br>open my $in, "<", $ARGV[0];<br>my $contig = 0;<br>my $record = "";<br>while (my $line = <$in>){<br> my $chn = "contig" . $contig;<br> if ($line =~ />(.+)/){<br> $line =~ s/$1/$chn/;<br> $record .= $line;<br> $contig++;<br> }<br> else {<br> $record .= $line;<br> }<br>}<br>open my $out, ">", $ARGV[0];<br>print $out $record;<br><br><div><div id="SkyDrivePlaceholder"></div><hr id="stopSpelling">From: juniiior182@gmail.com<br>Date: Fri, 7 Dec 2012 22:25:19 -0200<br>To: rio-pm@pm.org<br>Subject: Re: [Rio-pm] Isso não deveria estar certo???<br><br>Hi.<div><br></div><div>Não, ué.</div><div>A regexp começa com "<span style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:13px;background-color:rgb(255,255,255)"><" e no arquivo tem "</span><span style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:13px;background-color:rgb(255,255,255)">>lalalala</span><span style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:13px;background-color:rgb(255,255,255)">".</span></div>
<div><font color="#222222" face="arial, sans-serif"><br></font></div><div><font color="#222222" face="arial, sans-serif">[]'s<br></font><br><div class="ecxgmail_quote">2012/12/7 Aureliano Guedes <span dir="ltr"><<a href="mailto:guedes_1000@hotmail.com">guedes_1000@hotmail.com</a>></span><br>
<blockquote class="ecxgmail_quote" style="border-left:1px #ccc solid;padding-left:1ex"><</blockquote></div><br></div>
<br>_______________________________________________
Rio-pm mailing list
Rio-pm@pm.org
http://mail.pm.org/mailman/listinfo/rio-pm</div> </div></body>
</html>