<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"><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 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>