Eliminando caracteres indesejados
Publicado por Edvaldo Silva de Almeida Júnior 27/12/2006
[ Hits: 5.699 ]
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
Contagem de linhas em Perl (= wc -l)
Processa todos os SlackBuild's
Nenhum comentário foi encontrado.
Como escolher o melhor escalonador de CPU para melhorar o desempenho da máquina
Curiosidade sobre DOOM Guy e Isabelle de Animal Crossing
Inicializando servidor Ubuntu na AWS e rodando apache em Container
Instalando TeamViewer no Debian 12
Conheça o Octopi, outro frontend para o Pacman com acesso ao ARU (Arch Linux e derivados)
Terminal transparente no Debian 12 com interface i3wm usando Xfce4-Terminal e Compton
Ubuntu simplesmente morreu (8)
Como colocar uma assinatura digital em um código compilado ! (2)
Como traduzir todo o nitrogen para BR? (1)
Eu estou com problemas para usar o QBASIC no Dosbox X (1)
Como eu posso logar noutra distro sem subir o sistema? [RESOLVIDO] (5)