<html><head><style type="text/css"><!-- DIV {margin:0px;} --></style></head><body><div style="font-family:times new roman, new york, times, serif;font-size:12pt">&nbsp;&nbsp;&nbsp; Utilize a função chomp()<br><div>&nbsp;</div>Daniel ® Antunes<br><em><font color="#007f40">profissional de informática</font></em><br><em><font color="#007f40"></font></em><em><font color="#007f40">gnu/linux user</font></em> #238553<div style="font-family: times new roman,new york,times,serif; font-size: 12pt;"><br><br><div style="font-family: times new roman,new york,times,serif; font-size: 12pt;">----- Mensagem original ----<br>De: Patty Silva &lt;ptfzs@yahoo.com.br&gt;<br>Para: Cascavel Perl Mongers &lt;cascavel-pm@pm.org&gt;<br>Enviadas: Quinta-feira, 17 de Janeiro de 2008 15:15:35<br>Assunto: [Cascavel-pm] Res:  Ler Arquivo bin<br><br><div style="font-family: times new roman,new york,times,serif; font-size: 12pt;"><div style="font-family: times new roman,new
 york,times,serif; font-size: 12pt;">Pessoal.. estou quase conseguindo :)<br><br>fiz de uma maneira q ele quarda os 3 ultimos bytes lidos..<br>so uma duvida:<br>teho o arquivo.. <br>abc<br>abc<br>abcd<br><br>ele me retorna<br>a<br>b<br>c<br><br>a<br>b<br>c<br><br>a<br>b<br>c<br>d<br><br>Como faco para ele nao ler o &lt;ENTER&gt;<br>ja tentei fazer com expressao regular.. nada ...<br><br>Obrigada<br><br><br><br><div style="font-family: times new roman,new york,times,serif; font-size: 12pt;">----- Mensagem original ----<br>De: Patty Silva &lt;ptfzs@yahoo.com.br&gt;<br>Para: Cascavel Perl Mongers &lt;cascavel-pm@pm.org&gt;<br>Enviadas: Quinta-feira, 17 de Janeiro de 2008 15:03:38<br>Assunto: [Cascavel-pm] Ler Arquivo bin<br><br><div style="font-family: times new roman,new york,times,serif; font-size: 12pt;"><div>Pessoal.. gostaria de alguma sugestao de vcs...<br><br>Estou lendo um arquivo em binario e lendo byte a byte..<br>preciso recuperar trechos do
 programa:<br><br>ex:<br><br><br>&nbsp;while(my&nbsp; $arquivos = &lt;*.bin&gt; )<br>&nbsp;{<br><br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp; open(FH, "&lt;$arquivos") or die("Unable to open file");<br><br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp; while((my $caracter = getc(FH)) ne "") <br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp; {<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; print "CARACTER &nbsp;&nbsp;&nbsp; $caracter\n";&nbsp;&nbsp; <br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp; }<br>}<br><br>Obs: nao sei se tem metodos melhores..
 mas q encontrei foi&nbsp; esse<br>porem no arquivo tenho varias coisas e gostaria de recuperar os dados q estao entre<br>os caracteres ^D^C^C&nbsp; e ^A^A^C&nbsp; tudo q tiver entre isso preciso gravar..<br><br>o pq ler byte a byte.. para identificar a seguencia&nbsp; pq ex ^A pode estar na linha de cima e ^A^C na linha de baixo<br>e nao basta ler linha a linha<br><br>Obrigada Pessoal :D<br><br><br></div></div><br>


      <hr size="1">Abra sua conta no <a rel="nofollow" target="_blank" href="http://br.rd.yahoo.com/mail/taglines/mail/*http://br.mail.yahoo.com/">Yahoo! Mail</a>, o único sem limite de espaço para armazenamento! 
</div><br></div></div><br>


      <hr size="1">Abra sua conta no <a rel="nofollow" target="_blank" href="http://br.rd.yahoo.com/mail/taglines/mail/*http://br.mail.yahoo.com/">Yahoo! Mail</a>, o único sem limite de espaço para armazenamento! 
</div><br></div></div><br>


      <hr size=1>Abra sua conta no <a href="http://br.rd.yahoo.com/mail/taglines/mail/*http://br.mail.yahoo.com/">Yahoo! Mail</a>, o único sem limite de espaço para armazenamento! 
</body></html>