[Cascavel-pm] editar string

Leonardo Costa leocostabh em gmail.com
Quarta Maio 9 12:54:25 PDT 2007


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.
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070509/78d0947e/attachment.html 


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