m3u2dir

#!/usr/bin/perl
use warnings;
use strict;
use File::Copy "cp";

my $m3u_list="default.m3u";
my $nome_pasta="default.diretorio";

########################################
sub ajuda()
{
if( @ARGV < 2)
    {
    print ("\n\n");
    print ("Modo de usar: \n");
    print ("\$ perl ".$0." <lista.m3u> <diretorio_de_destino>\n");
    print ("\nm3u2dir   cicero.schons\@gmail.com - copyleft\n");
    exit -10;
    }
else
    {
    $m3u_list=$ARGV[0];
    $nome_pasta=$ARGV[1];
    }
}
##########
sub copiar()
{
my $contador_ok=0;
my $contador_total=0;

open (M3U,"$m3u_list");
my @lista=<M3U>;
close M3U;

if (!(-e $nome_pasta))
    {
    print ("Diretório de destino nao encontrado, criando...\n");
    mkdir ($nome_pasta);
    }

foreach my $musica_lista (@lista)
    {
    chomp $musica_lista;
    if ($musica_lista =~ m/^\//)
        {
        if ($musica_lista =~ m/.*\/(.*?)$/)
            {
            if ((-e "$musica_lista") && (-r "$musica_lista"))
                {
                if (-e "$nome_pasta/$1")
                    {
                    print ("Já existe, ignorando... $1\n");
                    }
                else
                    {
                    print ("Copiando: $1\n");
                    cp ("$musica_lista","$nome_pasta/$1");
                    $contador_ok++;
                    }
                }
            else
                {
                print ("Nao encontrado ou sem permissao de leitura: $1"."\n");
                }
            $contador_total++;
            }
        }
    }
print ("Copiados: $contador_ok/$contador_total\n");
}
########################################
&ajuda;
&copiar;