Eliminando caracteres indesejados
Publicado por Edvaldo Silva de Almeida Júnior 27/12/2006
[ Hits: 5.827 ]
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"; }
Listar arquivos de um diretório.
Script para adicionar e remover usuários no IMSPECTOR
Nenhum comentário foi encontrado.
Passkeys: A Evolução da Autenticação Digital
Instalação de distro Linux em computadores, netbooks, etc, em rede com o Clonezilla
Título: Descobrindo o IP externo da VPN no Linux
Armazenando a senha de sua carteira Bitcoin de forma segura no Linux
Enviar mensagem ao usuário trabalhando com as opções do php.ini
Instalando Brave Browser no Linux Mint 22
vídeo pra quem quer saber como funciona Proteção de Memória:
Encontre seus arquivos facilmente com o Drill
Mouse Logitech MX Ergo Advanced Wireless Trackball no Linux
Compartilhamento de Rede com samba em modo Público/Anônimo de forma simples, rápido e fácil
Remoção de propaganda com o programa Comskip[AJUDA] (4)
Instalação do drive do adaptador wiffi (5)
Linux Lite Demorando Muito Para Ligar (1)