[PortoAlegre-pm] Split

[Cassandro Davi Emer]

Se entendi direito, voce tem arquivos com conteudo assim:
*** a.txt inicio ***
dasasdasd dsasadsda  sdasadsda  sda  sadsdasdsd /
adsasdasdqwe qweqew    weqqwewqeqwe ////
qwqweeqwqwe qweqweqwewe=
qwewqedsaads //
qwewq edsaads//
*** a.txt fim ***

e quer separar as "palavras"... certo?
se for, usando isso:

*** a.pl inicio ***
@F = ();
open (File, "a.txt") or die $!;
while (my $line = <File>)
{
	chomp($line);
	$line =~ s/[\/=]+$// ;
	push(@F, split(/[ ]+/,$line));
}
close File;
*** a.pl fim ***

deve deixar as palavras isoladas no array... era isso mesmo ou entendi errado?

Cassandro Davi Emer
cassandro em gmail.com

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
>
>
> _______________________________________________
> PortoAlegre-pm mailing list
> PortoAlegre-pm em pm.org
> http://mail.pm.org/mailman/listinfo/portoalegre-pm
>
>