<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"> Utilize a função chomp()<br><div> </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 <ptfzs@yahoo.com.br><br>Para: Cascavel Perl Mongers <cascavel-pm@pm.org><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 <ENTER><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 <ptfzs@yahoo.com.br><br>Para: Cascavel Perl Mongers <cascavel-pm@pm.org><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> while(my $arquivos = <*.bin> )<br> {<br><br> open(FH, "<$arquivos") or die("Unable to open file");<br><br> while((my $caracter = getc(FH)) ne "") <br> {<br> print "CARACTER $caracter\n"; <br> }<br>}<br><br>Obs: nao sei se tem metodos melhores..
mas q encontrei foi esse<br>porem no arquivo tenho varias coisas e gostaria de recuperar os dados q estao entre<br>os caracteres ^D^C^C e ^A^A^C tudo q tiver entre isso preciso gravar..<br><br>o pq ler byte a byte.. para identificar a seguencia 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>