<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'>
Monges, cade o erro???<br><br>#!/usr/bin/env perl<br><br>use strict;<br>use autodie;<br><br>open my $in, "<", $ARGV[0];<br>my $contig = 0;<br>while (my $line = <$in>){<br> my $ctg = "contig" . $contig;<br> #print $line;<br> if ($line =~ /<(.+)/){<br> print "Ok\n";<br> $line = s/$1/$ctg/;<br> print $line;<br> $contig++;<br> }<br>}<br><br>O arquivo é algo como<br>>blablabla<br>ACTGAACAGTAGCTACTGACTCGTACGCTCGTAGC<br>>lalalala<br>CAGCTGATCGATCGTAGCATGCTACG<br> </div></body>
</html>