[Cascavel-pm] Split
Alex Falcão
alexjfalcao em universia.com.br
Quarta Junho 21 17:01:57 PDT 2006
> Pessoal.. estou lendo um arquivo linha por linha
> e os dados entre as linhas estao separados por espaco.. so que no fim da
> linha possue caracteres como: / //// ///// ///// / //// //// ///// / =
>
> estou fazendo assim:
>
> my @file_ok = grep{$_ =~ m/^teste/} @files;
> for my $file (@file_ok)
> {
> open (File, "$diretorio/$file") or die $!;
> while (my $line = <File>)
> {
> @F = split(/ /,$line);
> }
> close File;
> }
>
> Agora para eliminar esses caracteres do final antes de inserir no array
> :: alguem sabe como??
>
> Outra questao eh.. as vezes tenho linhas que um elemento possui 2
> espacoes entre eles :/ .. dai fica dificil neh??? :)
>
>
> Obrigada
>
> Paty
>
>
>
>
>
> ---------------------------------
> Yahoo! Search
> Música para ver e ouvir: You're Beautiful, do James
> Blunt_______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
Tente isto $line =~ s/\\.*$//; antes de colocar no array
acho que deve resolver
my @file_ok = grep{$_ =~ m/^teste/} @files;
for my $file (@file_ok)
{
open (File, "$diretorio/$file") or die $!;
while (my $line = <File>)
{
$line =~ s/\\.*$//;
@F = split(/ /,$line);
}
close File;
}
--
___________________________________________
Alex Esteves Jaccoud Falcão
Analista de Suporte
Linux User: 160008
http://webmaster.brfic.com
---------------------------------------------------------------
Universia - Esse é o seu Universo.
www.universia.com.br
Mais detalhes sobre a lista de discussão Cascavel-pm