Renomeador v1.0

#!/usr/bin/env perl

# Renomeador v1.0
# * KeplerBR (28/10/2012 16:00) :
#   - Released!
#
# [EN]
#  Rename automatically the images of the cards of the game Ragnarok.
#  Be included num2cardillustnametable.txt and images of the card in the same directory!
#  Both of you get through the GRF Tool.
#  Easily adaptable to other rename files based on a text file.
# [PT-BR]
#  Renomear automaticamente as imagens das cartas do jogo Ragnarok.
#  Tenha incluído o num2cardillustnametable.txt e as imagens da carta no mesmo diretório!
#  Ambos você consegue através do GRF Tool.
#  Facilmente adaptável para renomear outros arquivos com base em um arquivo de texto.
# ------------------
# By KeplerBR

# Definindo variáveis
use strict;
use warnings;

sub renomear() {
my (@separado, @listaErros);
my $linhaAtual = 0;

# Rotina para renomear
open(my $arq,'num2cardillustnametable.txt');
    while(<$arq>)
    {
    $linhaAtual++;
        chomp;
        if ($_ ne "") {
            @separado = split(/#/);
            $separado[0] = $separado[0] . '.bmp';
            $separado[1] = $separado[1] . '.bmp';
            if (-e $separado[1]) {
                rename ($separado[1], $separado[0]);
                print "[+] $linhaAtual: $separado[1] renomeado para $separado[0]\n";
            } else {
                print "[!] $linhaAtual: Não foi encontrado o $separado[1]!\n";
                push (@listaErros, "[!] $linhaAtual: Não foi renomeado o $separado[1] para $separado[0]\n");
            }
        }
    };

# Finalizando rotina
print "\n\n";
close($arq);
    if (@listaErros == 0) {
        print "[-] Renomeação concluída com sucesso!\n";
    } else {
        print "[-] Renomeação terminou com os seguintes problemas:\n";
        print @listaErros;
    }
print "\n\n";
system('pause');
}

&renomear();