Não sei quanto a vocês, mas eu me sinto incomodado com aqueles nomes de arquivos cheios de espaços e caracteres estranhos.

Para mim um bom nome de arquivo contém apenas [A-Za-z0-9\.], ou seja, alfanuméricos e o ponto separando o nome da extensão.

Se você pensa como eu e acha demorado mudar isso arquivo por arquivo, esse script Perl vai facilitar a conversão. Claro que ainda não está perfeito, e aceito sugestões para deixá-lo cada vez melhor.

• Download converte.pl
• Enviar nova versão

Esconder código-fonte

#!/usr/bin/env perl

my $dh = "lista";

my $teste=opendir($dh,".");

if ($teste) {

    while ( my $nomeant=readdir($dh)) {
    
   my $nomenovo=$nomeant;

       $nomenovo =~ s/[^A-Za-z0-9\.]//g;
       
   print $nomeant;
   print " ==> ";
   print $nomenovo;
   print "\n";
   
   rename( $nomeant , $nomenovo );

    }

} else {
    
    print "Falhou...\n";

}

Rsync e Perl: Sincronização de arquivos com gestão de backup incremental integrada

Contagem de linhas em Perl (= wc -l)

Script para adicionar e remover usuários no IMSPECTOR

getter

FTP – Script para adicionar e remover usuários via WEB

Nenhum coment�rio foi encontrado.