Muchachos, ¿me pueden ayudar? Tengo que leer el directorio de My Music de Windows y rescatar todos los .mp3 y cargarlos a un array... yo hice esto, ustedes me lo pueden corregir,
sub generador() {
use Data::Dumper::Names;
use File::Find::Rule;
use File::Basename;
use strict;
#my $directorio = 'C:\\Documents and Settings\\user\\Mis documentos\\Mi música\\';
#chdir $directorio;
my $dir='C:\\Documents and Settings\\user\\Mis documentos\\Mi música\\';
my @tema;
my $midato;
if (opendir(DIR,"$dir")){
@tema=readdir(DIR);
close DIR;
foreach (@tema){
# ignorar . y .. ...