[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