[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