[Cascavel-pm] Ler Arquivo
André Garcia Carneiro
andre.garcia.carneir em terra.com.br
Terça Junho 6 08:04:33 PDT 2006
oops... troque (*) por (.*) -
sorry!
Cheers!
---------- Cabeçalho original -----------
De: cascavel-pm-bounces+andre.garcia.carneir=terra.com.br em pm.org
Para: "cascavel-pm" cascavel-pm em pm.org
Cópia:
Data: Tue, 6 Jun 2006 11:59:43 -0300
Assunto: Re: [Cascavel-pm] Ler Arquivo
>
> 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
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>
> 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,1149606022.148728.302.arrino.hst.terra.com.br,6211,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
Mais detalhes sobre a lista de discussão Cascavel-pm