[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