[Cascavel-pm] Ler Arquivo
Patty Silva
ptfzs em yahoo.com.br
Quinta Maio 25 06:45:50 PDT 2006
Ola Nelson!1
Tentei usar o delimitador so que nao funcionou:
olha o codigo
while (<FILE>)
{
local $/ = '\s - TE\n';
print $_;
}
Ele imprime todos os dados do arquivo!! :>)
Quero pegar tudo entre -TE e o ultimo -TE termina com o END TE :)
Obrigada
Nelson Ferraz <nferraz em gmail.com> escreveu: Patty Silva wrote:
> Pessoal.. tenho um arquivo com diversas linhas.. so que quero ler tudo
> que comeca com (- TE), recuperando 4 COLUNA e a 5 e depois a outra linha
> de baixo tb :)
> Nao sei se fui clara..:) mas quem puder me ajudar,,
>
> agradeceria
>
> Obrigada
>
> Obs: Quero Recuperar as linhas ABAIXO de TE independente da quantidade
Patty,
Você tem certeza de que já não consegue resolver este tipo de problema
sozinha? Comece com um loop normal:
while (<>) {
# ...
}
Verifique se a linha começa com "- TE":
while (<>) {
if (/^- TE/) {
# ...
}
}
Esta é uma maneira.
Outra maneira mais "idiomática" é definir a variável $/ (input record
separator) com "- TE":
$/ = "- TE";
while (<>) {
# ...
}
Nesse caso, ao invés de trabalhar linha por linha (ou seja, delimitadas
por "\n"), você pega blocos maiores, delimitados por "- TE".
Existem muitas maneiras de se fazer isso.
Depois você tem que extrair valores de uma linha. Você sabe qual é o
tipo de delimitação usada? Verificou se existe algum módulo que pode
ajudar? (http://search.cpan.org)
[]s
Nelson
_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm
---------------------------------
Abra sua conta no Yahoo! Mail - 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz.
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060525/92ac8fc6/attachment.html
Mais detalhes sobre a lista de discussão Cascavel-pm