[Cascavel-pm] Ler Arquivo

[Patty Silva]

Ola Fabiano.. essa solucao nao funcionou.. ele pega tudo do arquivo!!
:)

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/ 
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060605/9f7be451/attachment.html