Foro - Perl en Español

Hola, buenas noches. Se me planteó la necesidad de realizar un script en Perl para un proyecto, y como soy nuevo en esto quisiera saber si me podrían dar una mano para hacer mi script o algunos consejos. Todo sirve. Gracias.

Bueno, lo que debo hacer es:
Un script que me pida que ingrese tres parámetros: directorio, unidad, y tamaño. Y que en base a esto me cree una página web que albergue listado todo el contenido del directorio ingresado por parámetro antes. Y solo deben estar listados todos los archivos mayores al tamaño ingresado.

Gracias... y espero que me ayuden... ¡Un abrazo!

Bienvenido a los foros de Perl en Español, fherdw.

¿Qué es "unidad"? ¿Se refiere a la unidad de medida del tamaño de los archivos?

Si tienes hecho algo de código, enséñale, y te iremos guiando.

@explorer, con unidad se refiere a una partición o disco en Windows.

@fherdw no me creo que no sepas hacer esto cuando haciendo una simple consulta en Google te salen 50 000 ejemplos, o... ¿acaso quieres que otros lo hagan por ti?

https://www.google.es/?gws_rd=cr&ei=Q22 ... rpeta+perl

En bing te salen muchos resultados a lo que buscas...

http://www.bing.com/search?q=leer+directorios+en+perl&go=&qs=ds&form=QBLH&filt=all

Dont be scroogle, Be Bing...

@Aceitunas: fherdw no ha indicado en qué sistema debe hacerlo, así que la pregunta es pertinente (de hecho, yo he tenido que hacer varios de esos programas, y "unidad" se refería siempre a la magnitud, no al dispositivo).

@danimera: prefiero usar Duck Duck Go, que, además, está hecho en Perl

A MI ME CONCHA, LA VIDA, NO SABÍA QUE DUCK DUCK GO FUERA HECHO EN PERL

Lo usaré, lo usaré, lo usaré, lo usaré solo por que está hecho en Perl.

Duck Duck Go (noticia en Perl en Español del año pasado) viene ya como motor de búsquedas por defecto en el Firefox que traen algunas distribuciones Linux.

Y si no te encuentra lo que quieres, con un par de clic te lo busca en otros buscadores (bing incluido).

¡Qué va...! Ya me está encontrando lo que quiero, ya lo integré en Opera, que es el navegador que uso, y va de lujo...

Debo realizar un script en lenguaje Perl que me permita ingresar tres parámetros: Directorio, Unidad y Tamaño. Y en base a ello el programa me deberá crear una pégina web, en la cual me liste los archivos del directorio ingresado por parámetro. Y que a su vez sean mayores que la unidad ingresada por parámetro. Ej.: si ingreso: /home 10 MB, me debería crear una página que liste los archivos del directorio /home, y que a su vez sean superiores en cuanto a tamaño de los 10 MB. ¡¡¡¡Gracias!!!!

Para leer los parámetros, como no das más información, supondremos que los leeremos a través de los argumentos pasados al programa (parámetro). En ese caso, lo que tienes que hacer es leer el array @ARGV.

Luego, tienes que comprobar que el directori existe. Eso lo puedes hacer con chdir(). Si falla, entonces es que no existe (o no tienes permiso de lectura de la unidad).

Luego, para sacar los archivos del directorio, puedes usar un operador diamante, así:

my @archivos = <*>;

o mejor, con un opendir(), y luego un bucle while() con un readdir().

Por cada archivo leído, con ayuda del operador -s, sacas el tamaño que tiene el archivo. Haces un if() para saber si el tamaño supera los 10_000_000, entonces lo guardas en un array aparte.

Finalmente, haces un nuevo bucle que recorre ese array, y pintas el nombre del archivo dentro de una serie de marcas HTML (dentro, naturalmente, de una cabecera y pie de página en HTML).

Sigo sin saber a qué te refieres con Unidad, porque, en los sistemas Unix, con dar el directorio, vale. Según el ejemplo que pones ahora, Directorio sería el '/home', la Unidad sería '10', y Tamaño 'MB'. En ese caso, hay que hacer antes una serie de cálculos, para transforma el 'MB' y el '10', en 10_000_000, que es lo que necesitamos para hacer las comparaciones.