Using perl Syntax Highlighting
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 .. : EN EL LINUX EL . . ERA UN ENLACE SIMBOLICO Y EL . INDICABA QUE SE TRATABA DE UN DIRECTORIO SERIA ASI ??????
#$_ PERL CREA ESTA VARIABLE DE BUCLE AUTOMATICAMENTE
next if ($_ eq "." || $_ eq "..");
if (/$ARGV[0]/io){
print "$dir/$_\n";
}
generador("$dir/$_") if (-d "$dir/$_" && ! -l "$dir/$_");
}
}else{
print "ERROR: no se puede leer el directorio $dir\n";
}
# @temas = splice (@tema);
my @temas;
my $n;
my $ind;
$ind = 0;
for ($n = 0; $n < @tema; $n++) {
#
#
#COMO HAGO PARA COMPARA SI EL TEMA TIENE EL .MP3 Y LO GUARDO EN EL NUEVO ARRAY, CON LA PREGUNTA QUE LE CLAVE EN MI DATO ESTA BIEN ??????? YO NO LO PUEDO PROBAR
if ( $tema[$n] &&( # ASI $midato=~/\.mp3$/ O ASI pff \'\\.mp3\' )) {
$ind++;
$temas [$ind] = $tema[$n];
}
else {
}
}
return (@temas);
}
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 .. : EN EL LINUX EL . . ERA UN ENLACE SIMBOLICO Y EL . INDICABA QUE SE TRATABA DE UN DIRECTORIO SERIA ASI ??????
#$_ PERL CREA ESTA VARIABLE DE BUCLE AUTOMATICAMENTE
next if ($_ eq "." || $_ eq "..");
if (/$ARGV[0]/io){
print "$dir/$_\n";
}
generador("$dir/$_") if (-d "$dir/$_" && ! -l "$dir/$_");
}
}else{
print "ERROR: no se puede leer el directorio $dir\n";
}
# @temas = splice (@tema);
my @temas;
my $n;
my $ind;
$ind = 0;
for ($n = 0; $n < @tema; $n++) {
#
#
#COMO HAGO PARA COMPARA SI EL TEMA TIENE EL .MP3 Y LO GUARDO EN EL NUEVO ARRAY, CON LA PREGUNTA QUE LE CLAVE EN MI DATO ESTA BIEN ??????? YO NO LO PUEDO PROBAR
if ( $tema[$n] &&( # ASI $midato=~/\.mp3$/ O ASI pff \'\\.mp3\' )) {
$ind++;
$temas [$ind] = $tema[$n];
}
else {
}
}
return (@temas);
}
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
He sacado un par de cosas del foro pero no me doy cuenta cómo... es una función para un servidor de mp3...
Desde ya, gracias por su ayuda y sepan disculpar las molestias.