[Cascavel-pm] Ler Arquivo bin

Patty Silva ptfzs em yahoo.com.br
Quinta Janeiro 17 07:03:38 PST 2008


Pessoal.. gostaria de alguma sugestao de vcs...

Estou lendo um arquivo em binario e lendo byte a byte..
preciso recuperar trechos do programa:

ex:


 while(my  $arquivos = <*.bin> )
 {

           open(FH, "<$arquivos") or die("Unable to open file");

           while((my $caracter = getc(FH)) ne "") 
           {
                          print "CARACTER     $caracter\n";   
           }
}

Obs: nao sei se tem metodos melhores.. mas q encontrei foi  esse
porem no arquivo tenho varias coisas e gostaria de recuperar os dados q estao entre
os caracteres ^D^C^C  e ^A^A^C  tudo q tiver entre isso preciso gravar..

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
e nao basta ler linha a linha

Obrigada Pessoal :D






      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
http://br.mail.yahoo.com/
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080117/1eb70314/attachment-0001.html 


Mais detalhes sobre a lista de discussão Cascavel-pm