Eliminando caracteres indesejados
Publicado por Edvaldo Silva de Almeida Júnior 27/12/2006
[ Hits: 5.988 ]
Homepage: http://emeraldframework.net
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.
#!/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
Script para adicionar e remover usuários no IMSPECTOR
Inserindo sites em Lista do Squid
Nenhum comentário foi encontrado.
Qt 6.10 e Python 3.14 puxam o ritmo do software livre nesta quarta
Atualizações de Apps, Desktop e Kernel agitam o ecossistema Linux nesta terça-feira
Miyoo Mini Plus + Onion OS (Linux)
IA local no bolso, novo visual no Raspberry Pi OS e mais destaques do software livre
Kernel turbinado, compatibilidade em alta e debate sobre sustentabilidade: o dia no mundo Linux
Adicionando o repositório backports no Debian 13 Trixie
Como definir um IP estático no Linux Debian
Como listar os arquivos em "bloquin... [RESOLVIDO] (6)
Como colocar atalho para uma pasta na área de trabalho do Ubuntu 24.04... (2)