Renomeando arquivos de forma padronizada
Publicado por Sandro Marcell 01/11/2008
[ Hits: 8.399 ]
Homepage: http://sanmarcell.wordpress.com
Simples Perl script que renomeia arquivos de forma padronizada. Ex.:
% ./script.pl --nome=texto --extensao=txt --contador=1 ~/arquivos/*
texto001.txt
texto002.txt
...
texto099.txt
texto100.txt
...
Espero que seja útil a alguém...
P.S.: Esse script ainda não "tá lá essas coisas", pelo fato de ser o segundo Perl script que escrevo na vida! =)
#!/usr/bin/env perl # # Renomeando arquivos de forma padronizada (Versao Perl). # # Sandro Marcell (sandro_marcell@yahoo.com.br) # Boa Vista, Roraima - 03/09/2008 (Atualizado em 12/10/2008). # # 12/10/2008 # - Adicionado suporte a opcoes longas; # - Adicionada opcao de modo silencioso. # # Uso: Faca "./script.pl --ajuda" para mais detalhes. # # Obs.: # - Se declaradas, as opcoes [-n]*, [-c]* e [-e]*, devem obrigatoriamente # possuir valores *(o mesmo e valido para opcoes longas); # - Se a opcao [-c] nao for declarada, o contador iniciara em 1; # - Os arquivos renomeados serao movidos para o diretorio de trabalho # corrente; # - Ao declarar a opcao [-b], um subdiretorio sera criado em /tmp # e os arquivos serao copiados para ele, antes de serem renomeados; # - E possivel o uso de metacaracteres. # Modulos utilizados: use Getopt::Long; use File::Copy; $prog = $0; $prog =~ s/.*\///g; # Como utilizar o script: sub __uso__ { print <<FIM; Uso: $prog -abs [-c NUMERO] [-e EXTENSAO] [-n NOME] arquivo1 ... arquivoN Onde: -a, --ajuda : Mostra esta tela de ajuda. -b, --backup : Cria backups dos arquivos -c NUMERO, --contador=NUMERO : Contador numerico -e EXTENSAO, --extensao=EXTENSAO : Extensao dos arquivos -n NOME, --nome=NOME : Novo nome dos arquivos -s, --silencioso : Modo silencioso Exemplos: # Renomear somente arquivos jpg: $prog --nome=imagem --extensao=jpg --contador=1 ~/pessoal/*.[jJ][pP][gG] # Renomear arquivos com o formato 001.txt ... 010.txt ..: $prog -e txt ~/docs/* # Criar backups antes de renomear arquivos: $prog -b -n texto -c 10 -e txt ~/arqs/* # Renomear arquivos de diferentes diretorios: $prog --nome=copia --contador=1 --extensao=bkp ~/pessoal/* ~/docs/* ... FIM exit(1); } # Inicializando variaveis: $bkp = ''; $cont = 1 ; $ext = ''; $nome = ''; $output = ''; # Checando parametros: __uso__ unless (@ARGV); # Opcoes que podem ser definidas pelo usuario: %opc = (); GetOptions(\%opc, 'a|ajuda', 'b|backup', 'c|contador=i', 'e|extensao=s', 'n|nome=s', 's|silencioso', ) || die("Faca '$prog --ajuda' para obter ajuda.\n"); # Caracteres invalidos (non-word) nao serao aceitos como argumentos # para as opcoes [-e] e [-n]: __uso__ if $opc{e} =~ /\W/ || $opc{n} =~ /\W/; # Obtendo ajuda: __uso__ if defined $opc{a}; # Se a opcao [-b] for declarada, entao define-se o local onde sera # criado o diretorio de backup e se ele nao existir, cria-o: if (defined $opc{b}) { our($bkp , $dbkp); $bkp = "sim"; $dbkp = "/tmp/$prog-$ENV{USER}"; mkdir($dbkp) unless -d $dbkp; } # Extensao dos arquivos: $ext = $opc{e} if defined $opc{e}; # Contador numerico: $cont = $opc{c} if defined $opc{c}; # Novo nome dos arquivos: $nome = $opc{n} if defined $opc{n}; # Modo silencioso: $output = "nao" if defined $opc{s}; # O usuario especificou algum arquivo? die("Erro: Especifique os arquivos a serem renomeados.\n") unless (@ARGV); # Informando o destino dos arquivos renomeados: print <<FIM; ATENCAO: Os arquivos renomeados serao movidos para: $ENV{PWD} Renomeando... FIM sleep(2); # Loop de execucao: foreach (@ARGV) { # Testes condicionais: if (! -e "$_") { print("[$_]: Arquivo nao encontrado.\n"); next; } elsif (! -w "$_") { print("[$_]: Sem permissao para renomear.\n"); next; } elsif (-d "$_") { print("[$_]: Diretorios nao serao renomeados.\n"); next; } # Criar 'backups' antes de renomear arquivos? copy("$_" , $dbkp) if $bkp eq "sim"; # Adicionando zeros ao contador (ex.: 001 ... 099): $zeros = sprintf("%03d" , $cont); # Concatenando variaveis para formar o novo nome: my $nn .= "${nome}${zeros}.$ext"; # Renomeando... rename("$_" , $nn); print("[$_] Renomeado para: $nn\n") if $! == 0 && $output ne "nao"; # Incrementando contador: $cont++; } # Fim
Soma varios valores e mostra sua media
"Codificação" de texto em Perl
Assistente de instalação por apt!
Melhorando o tempo de boot do Fedora e outras distribuições
Como instalar as extensões Dash To Dock e Hide Top Bar no Gnome 45/46
E a guerra contra bots continua
Tradução do artigo do filósofo Gottfried Wilhelm Leibniz sobre o sistema binário
Conheça o firewall OpenGFW, uma implementação do (Great Firewall of China).
Instalando o FreeOffice no LMDE 6
Anki: Remover Tags de Estilo HTML de Todas as Cartas
Colocando uma opção de redimensionamento de imagem no menu de contexto do KDE
Alguém pode me ajudar porfavor como executar comandos ao iniciar no i3... (2)
Debian Bookworm para a versão beta Debian 13 Trixie (2)
Como adicionar módulo de saúde da bateria dos notebooks Acer ao kernel... (21)
[Shell Script] Script para desinstalar pacotes desnecessários no OpenSuse
[Shell Script] Script para criar certificados de forma automatizada no OpenVpn
[Shell Script] Conversor de vídeo com opção de legenda
[C/C++] BRT - Bulk Renaming Tool
[Shell Script] Criação de Usuarios , Grupo e instalação do servidor de arquivos samba