[Cascavel-pm] Ler Arquivo

[André Garcia Carneiro]

use strict;


open FILE,"meuarquivo" or die "Nao foi possível abrir o arquivo: $!";

my $line;
while(<FILE>)
{
       $line = $_;
       print $1 if ($line =~ /TESTE(*)/) ;
    
}

close FILE;




Bem tosco mesmo... eheheh !!! Cheers!

---------- Cabeçalho original -----------

De: cascavel-pm-bounces+andre.garcia.carneir=terra.com.br em pm.org
Para: "Cascavel Perl Mongers" cascavel-pm em pm.org
Cópia: 
Data: Tue, 6 Jun 2006 10:35:41 -0300 (ART)
Assunto: Re: [Cascavel-pm] Ler Arquivo

> PEssoal :( nenhuma das sugestoes funcionaram :(
> alguem da um help!!
> 
> Nada de conseguir ler somente o intervalo
> 
> 
> Fabiano Reese Righetti <frighetti em cascavel.pm.org> escreveu: Patty Silva escreveu:
> > Eu ja tinha postado :) mas vai la!!
> > 
> > while () 
> > {
> >     local $/ = '\s - TESTE\n';
> >     print $_;
> >      
> > }
> 
> my $var   = '';
> my %dados = ();
> while ()
> {
>  if ($_ =~ /^- TESTE (\S+)/)
>  {
>   $var = $1;
>   $dados{$var} = [];
>  }
>  else
>  {
>   push(@{$dados{$var}}, $_);
>  }
> }
> 
> > 
> > No caso nao funcionou..
> > 
> > eu quero pegar tudo que vem depois de - TESTE ou seja
> > meu arquivo
> > - TESTE VARIAVEL1
> > Joao 23 Minas Centro
> > Maria Sao Paulo
> > - TESTE VARIAVELT
> >   JOSE 32 
> > Roberto 34
> > - TESTE VARIAVELB
> > bla bla bla
> > 
> > - END TESTE
> 
>     Peguei a conversa no final... mas espero que o código acima ajude!
> 
> Abraços,
> --
> Fabiano Reese Righetti
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
> 
> 
>  __________________________________________________
> Fale com seus amigos  de graça com o novo Yahoo! Messenger 
> http://br.messenger.yahoo.com/ 
> E-mail classificado pelo Identificador de Spam Inteligente Terra.
> Para alterar a categoria classificada, visite
>
http://mail.terra.com.br/protected_email/imail/imail.cgi?+_u=andre.garcia.carneir&_l=1,1149600969.967281.30243.caneria.hst.terra.com.br,6433,Des15,Des15
> 
> Esta mensagem foi verificada pelo E-mail Protegido Terra.
> Scan engine: McAfee VirusScan / Atualizado em 05/06/2006 / Versão: 4.4.00/4777
> Proteja o seu e-mail Terra: http://mail.terra.com.br/
> 

--
André Garcia Carneiro
Developer(Perl)
Member of "São Paulo Perl Mongers" - http://sao-paulo.pm.org