[Cascavel-pm] Split

Fernando Oliveira fernandocorrea em gmail.com
Quinta Junho 22 04:55:51 PDT 2006


Tente algo assim...

perl -ane 'BEGIN{push @ARGV, grep{$_ =~ m/^teste/} @files}$F[-1]=~s#/+$##'

On 6/21/06, Patty Silva <ptfzs em yahoo.com.br> wrote:
> 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
>
>


-- 
[]'s Fernando


Mais detalhes sobre a lista de discussão Cascavel-pm