André e Stan<div><br></div><div>A palavra-chave aqui é TERMINADOR. O terminador é sempre o último, ou últimos caracteres que definem a quebra de linha. Isso pode variar entre plataformas, por exemplo: no windows, o terminador é representado pelos caracteres \r\n( 'Retorno do carro' + 1 linha), referenciando os velhos 'carros' de máquina de escrever. Em Unix/Linux/BSD etc o caracter terminador é \n, e Mac é \r(se não me engano...).</div>
<div><br></div><div><br></div><div>$mode_mala=1;</div><div><br></div><div>Segundo o manual:</div><div><br></div><div><br></div><div>>>>>>> CHOMP</div><div><br></div><div>'This safer version of "chop" removes any trailing string that corresponds to the current value of $/ (also known as $INPUT_RECORD_SEPARATOR in the "English" module).'</div>
<div><br></div><div>Ou seja, o chomp remove todos os valores a direita do TERMINADOR ou se preferir, do INPUT_RECORD_SEPARATOR, ou $/, de uma string, ou seja, o caracter(ou caracteres) que representam uma nova entrada de dados(\n ou \r\n, ou \r).</div>
<div><br></div><div><br></div><div>>>>>>> CHOP</div><div><div>'Chops off the last character of a string and returns the character chopped. It is much more efficient than "s/.$//s" because it neither scans nor copies the string. If VARIABLE is omitted, chops $_. '</div>
</div><div><br></div><div>Ou seja, chop remove o último caracter de uma string, não importando se é um terminador ou não. Se a variável for omitida, $_ será 'chopada'... lol !!!! ah... anyway...</div><div><br></div>
<div><br></div><div><br></div><div>A diferença entre os dois na verdade é essa Stan.</div><div><br></div><div><br></div><div>$mode_mala=0;</div><div><br></div><div><br></div><div><br></div><div><br></div><div><br></div><div>
Cheers!</div><div><br></div><div><br><br><div class="gmail_quote">2011/6/27 André Torres <span dir="ltr"><<a href="mailto:andretorresrj@gmail.com">andretorresrj@gmail.com</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
eu acho que entendi,<br>quando o arquivo da sequencia é aberto (.txt) ele deve remover as quebras pra tornar a sequencia da ptn linear e nao ter erro na hora de buscar um pedaço que esteja entre uma quebra.<br>acho que é isso.<br>
<br>brigado galera.<br><br><br><br><div class="gmail_quote">Em 27 de junho de 2011 10:35, André Torres <span dir="ltr"><<a href="mailto:andretorresrj@gmail.com" target="_blank">andretorresrj@gmail.com</a>></span> escreveu:<div>
<div></div><div class="h5"><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
eu estou mexendo em uma rotina que abre um arquivo de uma sequencia de proteina e depois tenta procurar um pedaço dentro dela. pelo que vc disse, acho que ele tira a primeira linha pq é a identificação do arquivo para a sequencia e o programa nao necessita dessa informação. acredito que seja pra isso, meio que pra limpar e deixar apenas a sequencia de interesse. sera?<div>
<div></div><div><br>
<br><div class="gmail_quote">2011/6/27 Samir Cury <span dir="ltr"><<a href="mailto:samir.cury.siqueira@cern.ch" target="_blank">samir.cury.siqueira@cern.ch</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
Remove as quebras de linha? Normalmente e util quando voce quer fazer append de algo numa "linha que vem do terminal, inclusive a quebra", mas nao quer que sua string final tenha uma quebra de linha (enter) no meio, ex :<div>
<br></div><div><br></div><div><div>[Darkstar] ~> perl -e'</div><div>$var = "teste\n";</div><div>chomp($var);</div><div>print $var;'</div>
<div>teste[Darkstar] ~>perl -e'</div><div>$var = "teste\n";</div><div>print $var;'</div><div>teste</div><div>[Darkstar] ~ > </div>
</div><div><br></div><div><br></div><div><br><div class="gmail_quote"><div>2011/6/27 André Torres <span dir="ltr"><<a href="mailto:andretorresrj@gmail.com" target="_blank">andretorresrj@gmail.com</a>></span><br>
</div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div><div></div><div>
pessoal, estou começando a estudar perl e algumas duvidas vao surgindo.<br>ja peguei a documentação pra dar uma olhada no que a função chomp faz, mas ainda nao caiu a ficha. alguem poderia me dizer o que ela faz?<br><br>
obrigado.<br clear="all">
<font color="#888888">
<br>-- <br>André Torres<br><br>"Quando o homem aprender a respeitar até o menor ser da criação, seja animal ou vegetal, ninguém precisará ensiná-lo a amar seu semelhante." (Albert Schweitzer - Nobel da Paz de 1952)<br>
</font><br></div></div><div>_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org" target="_blank">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br></div></blockquote></div><br></div>
<br>_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org" target="_blank">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br></blockquote></div><br><br clear="all"><br>-- <br>André Torres<br><br>"Quando o homem aprender a respeitar até o menor ser da criação, seja animal ou vegetal, ninguém precisará ensiná-lo a amar seu semelhante." (Albert Schweitzer - Nobel da Paz de 1952)<br>
</div></div></blockquote></div></div></div><div><div></div><div class="h5"><br><br clear="all"><br>-- <br>André Torres<br><br>"Quando o homem aprender a respeitar até o menor ser da criação, seja animal ou vegetal, ninguém precisará ensiná-lo a amar seu semelhante." (Albert Schweitzer - Nobel da Paz de 1952)<br>
</div></div><br>_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br></blockquote></div><br><br clear="all"><br>-- <br>André Garcia Carneiro<br>Analista/Desenvolvedor Perl<br>
(11)82907780<br>
</div>