On Sun, 13 Jan 2002 18:17:06 -0200
"Mantovani, Romeu Jr." <[EMAIL PROTECTED]> wrote:
> Algu�m tem uma luz?
Voces querem fazer um script que renomeie todos os arquivos de um diretorio de
maiusculo para minusculo e troque todos os espacos por _? Se for isso, aqui vai um
script que eu fiz em perl que faz isso:
-----------------------------------------
#!/usr/bin/perl
opendir(CURRDIR, '.') or die "Naoi foi possivel abrir o diretorio ($!), fechando.\n";
my $file = "";
print "Renomeando os arquivos do diretorio de maiusculo para minusculo e trocando os
espacos por _\n";
while (defined($file = readdir(CURRDIR))) {
# renomear os arquivos de maiusculo para minusculo
if (-f $file and $file !~ /^(\.|\.\.|$0)$/) {
$nfile = $file;
$nfile =~ tr/[A-Z]/[a-z]/;
rename $file, $nfile;
}
# tirar os espacos e colocar _ no lugar dos mesmos
if (-f $file and $file =~ /\s+/) {
$nnfile = $file;
$nnfile =~ s/\s+/\_/g;
rename $file, $nnfile;
}
}
closedir(CURRDIR);
print "Pronto!\n";
-----------------------------------------
Assinantes em 13/01/2002: 2216
Mensagens recebidas desde 07/01/1999: 150204
Historico e [des]cadastramento: http://linux-br.conectiva.com.br
Assuntos administrativos e problemas com a lista:
mailto:[EMAIL PROTECTED]
