[Cascavel-pm] Res: Ler Arquivo bin

[Patty Silva]

Hum.. oks :)
meu problema eh o seguinte
se o arquvo vier
abc

e o outro vier
ab
cd

eles deveriam pegar.. mas do jeito q fiz nao pega pq ele pega o \n
e eu preciso do \n para manter a formatacao original


eu fiz assim:


while( $arquivos = <*.teste> ) 
{

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

    my $campo1;
    my $campo2;
    my $teste1;
    my $teste2;
    
    my $cont; 
    
    while(($caracteratual = getc(FH)) ne "") 
   {

           
           
           $campo1=$teste1;
           $campo2=$teste2;
                  
           $teste1=$caracteratual;
           $teste2=$campo1;
                  
           if(($campo2=~ /^\cA/) && ($campo1=~ /^\cB/)  && ($caracteratual=~ /^\cC/) )
           {
               print "INICIO\n";
           }
           
.
.
.
.
.

alguma sugestao?? :D

Obrigada


----- Mensagem original ----
De: Thomas Britis <thomas em tcnet.com.br>
Para: Cascavel Perl Mongers <cascavel-pm em pm.org>
Enviadas: Quinta-feira, 17 de Janeiro de 2008 18:02:52
Assunto: Re: [Cascavel-pm] Res:  Res:  Res:  Ler Arquivo bin

o chomp() não funcionou pois vc lê caracter por caracter.

Patty Silva wrote:
> Nao adiantou :)
> fiz:  next if ($caracteratual =~ /\n/);
> 
> assim funcionou... nao sei o pq..
> 
> ----- Mensagem original ----
> De: Daniel ® Antunes <danielrantunes em yahoo.com.br>
> Para: Cascavel Perl Mongers <cascavel-pm em pm.org>
> Enviadas: Quinta-feira, 17 de Janeiro de 2008 17:43:56
> Assunto: [Cascavel-pm] Res: Res: Ler Arquivo bin
> 
>     Utilize a função chomp()
>  
> Daniel ® Antunes
> /profissional de informática/
> ///gnu/linux user/ #238553
> 
> 
> ----- Mensagem original ----
> De: Patty Silva <ptfzs em yahoo.com.br>
> Para: Cascavel Perl Mongers <cascavel-pm em pm.org>
> Enviadas: Quinta-feira, 17 de Janeiro de 2008 15:15:35
> Assunto: [Cascavel-pm] Res: Ler Arquivo bin
> 
> Pessoal.. estou quase conseguindo :)
> 
> fiz de uma maneira q ele quarda os 3 ultimos bytes lidos..
> so uma duvida:
> teho o arquivo..
> abc
> abc
> abcd
> 
> ele me retorna
> a
> b
> c
> 
> a
> b
> c
> 
> a
> b
> c
> d
> 
> Como faco para ele nao ler o <ENTER>
> ja tentei fazer com expressao regular.. nada ...
> 
> Obrigada
> 
> 
> 
> ----- Mensagem original ----
> De: Patty Silva <ptfzs em yahoo.com.br>
> Para: Cascavel Perl Mongers <cascavel-pm em pm.org>
> Enviadas: Quinta-feira, 17 de Janeiro de 2008 15:03:38
> Assunto: [Cascavel-pm] Ler Arquivo bin
> 
> 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 
>
 <http://br.rd.yahoo.com/mail/taglines/mail/*http://br.mail.yahoo.com/>, 
> o único sem limite de espaço para armazenamento!
> 
> 
>
 ------------------------------------------------------------------------
> Abra sua conta no Yahoo! Mail 
>
 <http://br.rd.yahoo.com/mail/taglines/mail/*http://br.mail.yahoo.com/>, 
> o único sem limite de espaço para armazenamento!
> 
> 
>
 ------------------------------------------------------------------------
> Abra sua conta no Yahoo! Mail 
>
 <http://br.rd.yahoo.com/mail/taglines/mail/*http://br.mail.yahoo.com/>, 
> o único sem limite de espaço para armazenamento!
> 
> 
>
 ------------------------------------------------------------------------
> Abra sua conta no Yahoo! Mail 
>
 <http://br.rd.yahoo.com/mail/taglines/mail/*http://br.mail.yahoo.com/>, 
> o único sem limite de espaço para armazenamento!
> 
> 
>
 ------------------------------------------------------------------------
> 
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm

-- 
Thomas Storino Britis
TCNet Informatica e Telecomunicacoes LTDA
_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm






      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/b4dc8085/attachment.html