[Cascavel-pm] Ler Arquivo

[Fabiano Reese Righetti]

Patty Silva escreveu:
> Eu ja tinha postado :) mas vai la!!
> 
> while (<FILE>) 
> {
>     local $/ = '\s - TESTE\n';
>     print $_;
>      
> }

my $var   = '';
my %dados = ();
while (<FILE>)
{
	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