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";

}

Script que procura uma palavra em um arquivo.

Inserindo sites em Lista do Squid

Apaga fila do Exim...

Inserindo sites em Lista do Squid

Journaling de arquivos

Nenhum comentário foi encontrado.