Foro - Perl en Español

Hola tengo un problema y espero que me puedan ayudar.
bueno,lo que necesito es leer un directorio y sus subdirectorios, pero no necesito leer todos los archivos, sólo los de algún tipo de extensión, es decir que tengo:

Código: Seleccionar todo

MI DIR
      |_ sound1.gsm
      |_ sound2.gsm
      |_ texto.txt
      |
      |_ MI SUB DIR
               |_ sound3.gsm
               |_ sound4.gsm
               |_ texto2.txt

Bueno, sólo necesito leer los .gsm y ponerlos en un hash que tenga como clave el nombre del archivo sin extensión y como valor la dirección + el archivo y su extensión osea la hash vendría a quedar de esta manera:

Código: Seleccionar todo

soun1 => /home/yussen/MI DIR/sound1.gsm
soun2 => /home/yussen/MI DIR/sound2.gsm
soun3 => /home/yussen/MI DIR/MI SUB DIR/sound3.gsm
soun4 => /home/yussen/MI DIR/MI SUB DIR/sound4.gsm

Ahora al momento de hacer el readdir() puedo hacer algún tipo de clasificación (si si, ¿cómo?) o tengo que leer todo el directorio y verificar los que me interesan del arreglo donde lo voy a guardar, luego y lo mas importante, ¿hay alguna forma de leer un directorio y sus subdirectorios de una sola pasada? y ¿cómo recupero las direcciones donde se encuentran con sus archivos? Ejemplo: /home/yussen/MI DIR/MI SUB DIR/sound4.gsm para que las ponga directamente en la hash.

Bueno, espero que este claro y que lo entienda y más aun que puedan ayudarme.
Desde ya, gracias

Si mal no recuerdo hay una variable de entorno que te dice la dirección de tu script, así que con eso + la dirección relativa de tu archivo ya tienes la ABSOLUTA...

Ahora bien, no conozco ninguna función que en el readdir() te traiga solo unos archivos, siempte yo traje todo y luego los bockeaba y en cada iteración con un if para ver si me servía el archivo...

Si tiene sub directorio que la función se llame a si misma y con eso haces la recursividad

Espero que te sirva

Saludos

que se traduce por:

Para cada $fichero correspondiente a la búsqueda dentro del directorio '/home/yussen/MI DIR' y cuyo nombre siga el patrón '*.gsm',
dividimos el nombre completo del $fichero en $nombre del fichero, $sufijo y $path
y nos quedamos sólo con lo interesante

Sale:

Código: Seleccionar todo

%ficheros_gsm = (
                  'sound1' => '/home/yussen/MI DIR/sound1.gsm',
                  'sound3' => '/home/yussen/MI DIR/MI SUB DIR/sound3.gsm',
                  'sound4' => '/home/yussen/MI DIR/MI SUB DIR/sound4.gsm',
                  'sound2' => '/home/yussen/MI DIR/sound2.gsm'
                );

Vamos... 3 líneas... por algo nos gusta Perl, ¿no?

Jejeje, bueno si estaba haciendo algo así, pero ¿cuál es esa variable que me almacena la dirección?, la verdad como yo ya conozco la dirección de donde tengo que leer pues la voy poniendo a los values del hash pero sería bueno saber para tener más conocimiento , además sería útil para la recursividad, jeje
Bueno, gracias y a ver si dices cual es la variable esa.

Otra cosita. Bueno, para leer las extensiones de mis archivos para ver si me sirve pues estaba usando una expresión regular que es esta, bueno es una prueba:

así si funciona pero quería saber una cosa. ¿Cómo puedo hacer para que en la función se evalúe el .gsm? El problema es con el punto y la verdad he tenido ese problema en muchas ocasiones y siempre encontré alternativas y aunque así como hice la expresión funciona, por cultura general y además sé que me servirá más adelante, ¿cómo hago para que en una regexp evalúe el punto como parte de lo que estoy buscando y no como un comando de match?

Bueno desde ya gracias por toda la ayuda

Jajaja, explorer, esa está buenísima, ahora mismo la pruebo. ¡¡¡¡GRACIAS!!!!

Explorer, aunque tu solución parece re buena tengo un gran problema pues me sale que no puedo encontrar el Data/Dumper/Names.pm, ¿necesito alguna librería? y si es así, ¿de donde me la bajo?
Si me pudieras ayudar te lo agradecería mucho.

El problema del punto lo solucionas así

$midato=~ /\.gsm$/

El problema del data dumper es que debes instalar ese módulo desde el cpan...

Saludos

Muchas muchas gracias. una cosita más. ¿De dónde me puedo bajar el cpan?

Usa Data::Dumper, sino quieres instalar Data::Dumper::Names.

Mejor dicho, Data::Dumper en el ejemplo sólo sirve para mostrar el contenido de la variable con el método Dumper. Pero si no lo vas a usar en tu programa, puedes quitar esas líneas. Yo sólo las he puesto para demostrar cómo quedaría el hash al final.