[Cascavel-pm] editar string

[lgonzaga em lncc.br]

Esta ocorrendo pois você está colocando o "." antes
de TODOS os valores de $u.

Como você disse que
está começando a aprender Perl, saiba que existem meios mais
fáceis e rápidos de fazer o que você quer.

Dentro do loop "foreach $o (@arquivo) {"
basta você
usar o mecanismo de substituição das expressões
regulares:

$o =~ s/\.[0-9]{6,8}//;

De resto te
recomendo que você leia a vasta documentação que
está a sua disposição, para começar, execute
na linha de comando:
perldoc perl
perldoc  perlrequick

Uma última observação, pesquise outras
maneiras de se carregar o array @arquivo. O Perl tem função
para isto.

Espero ter-lhe ajudado.
Luiz.

>
Boa tarde,
> 
> eu tenho vários arquivos no
modelo:
> 
> blablabla.txt.300606
>
blobloblo.300705
> bliblibli.org.txt.140504
>
blublublu.14062004
> 
> Como eu edito todos os arquivos
para tirar essa data do final?
> 
> Eu tentei isso:
> 
> @arquivo = `ls`;
> foreach $o (@arquivo) {
>     if ( $o =~ /[0-9]{6,8}/ ) {
>         @arquivo2 =
split(/\./, $o);
>         $date = pop @arquivo2;
> 
>         $string = "";
>         foreach $u
(@arquivo2) {
>             $string .= ".$u";
> 
       }
>     }
> }
> 
> Mas obviamente
isso remonta o arquivo dessa forma: .blablabla.txt
> Com um
"." a mais no inicio.
> 
> Eu sou beeem novo em
Perl :)
> 
> [ ]'s
> 
> Leonardo.
> _______________________________________________
>
Cascavel-pm mailing list
> Cascavel-pm em pm.org
>
http://mail.pm.org/mailman/listinfo/cascavel-pm
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070509/002d2c7d/attachment.html