Renomeando arquivos de forma padronizada
Publicado por Sandro Marcell 01/11/2008
[ Hits: 8.525 ]
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
Lista de números aleatórios não-repetidos de um intervalo em Perl
Separa os dígitos de um número
Enviar mensagem ao usuário trabalhando com as opções do php.ini
Meu Fork do Plugin de Integração do CVS para o KDevelop
Compartilhando a tela do Computador no Celular via Deskreen
Como Configurar um Túnel SSH Reverso para Acessar Sua Máquina Local a Partir de uma Máquina Remota
Configuração para desligamento automatizado de Computadores em um Ambiente Comercial
Compartilhamento de Rede com samba em modo Público/Anônimo de forma simples, rápido e fácil
Cups: Mapear/listar todas as impressoras de outro Servidor CUPS de forma rápida e fácil
Criando uma VPC na AWS via CLI
Tem como instalar o gerenciador AMD Adrenalin no Ubuntu 24.04? (15)
Tenho dois Link's ( IP VÁLIDOS ), estou tentando fazer o failover... (0)
Pendrive não formata de jeito nenhum (4)