Foro - Perl en Español

Hola devuelta, paso un tiempo, y no lo había hecho. ¡¡¡Pero hoy me puse en campaña!!!

He podido hacer esto: archivo adjunto.

Pero me faltan volcar estos tres parámetros a un archivo html.

Puedo sobreescribir index.html de Apache.

Igual mi script tiene un error por que la sintaxis del comando find() me falla al volcarlo a html.txt.

¡¡¡Agradezco sus ayudas!!!

¡¡¡Gracias!!!
Hasta ahora tengo esto:

#!/usr/bin/perl
use strict;
use warnings;
my ($tam, $uni, $dir) = @ARGV;

print "tamaño \n";
$tam=<STDIN>;
if (not defined $tam) {die "¡¡¡necesito un tamaño!!! \n";}
if (not defined $uni) {die "¡¡¡necesito un unidad!!! \n";}
if (not defined $dir) {die "¡¡¡necesito un directorio!!! \n";}

system "find /$ARGV[2] -size +$ARGV[0] >> html.txt;

Notas:

1. En la última línea debería cambiar html.txt a una base HTML. Puedo sobreescribir index.html. Es para que me muestre la lista en el navegador.
2. También está mal la sintaxis de find, pasa que lo voy entendiendo de apoco, y eso es lo que tendría que hacer: que me busque en ARGV[2], los archivos mayores a ARGV[0] y me los vuelque en una html.
3. También me faltaría concatenar ARGV[0] con ARGV[1], pero no logro que me tome en cuenta las unidades de ARGV1 (kb,MB,gb,tb,etc.).

Gracias, ese es mi script. Espero que lo pueda entender, porque ¡no puedo subir la imagen!

Igual desde ya muchas gracias... ¡¡¡¡Un abrazo!!!!

Gracias por su ayuda, ¡¡¡ahora voy a ver cómo lo hago!!!

¡¡¡Saludos!!!

¡¡¡Hola a todos!!!

Bueno, yo tenía que hacer un script en Perl, que ya casi tengo, pero que se me ha complicado con el comando find.

Ya que debo realizar una búsqueda de archivos mayores a un tamaño determinado (ingresado por parámetro), y me los tiene que listar en un archivo de texto.

La sintaxis de mi script es algo así:

system "(find $dir -size +$tamano -exec ls -l {}\)>html.txt";

Donde:

$dir es un directorio ingresado por parámetro (STDIN), y me lo toma perfectamente

$tamano es un valor en bytes, también ingresado por parámetro (STDIN). Pero que me lo desconoce

La pregunta aquí es:

¿Cómo logro que el comando "find" me tome la variable $tamano en la sintaxis?

¡¡Gracias!!
¡¡¡Saludos!!!

Gracias, me sirvió bastante, aunque al ejecutar mi script sigue apareciendo el siguiente error:

sh: -size: not found

Lo que me lista todo el contenido del directorio ($dir).

Pero gracias igual, ¡ya voy a ver cómo lo puedo arreglar!

¡¡¡Saludos!!!

Gracias,gracias. ¡¡¡Ya pude corregir un par de errores!!!

El comando find me quedó así fuera del script, y funciona:

find /home -size +30000c -exec ls -lhgo \; >html.txt

Pero en el script, así:

system ("find $dir -size +${tamano}c -exec ls -lhgo \; >html.txt");

Y sigue sin tomar $tamano ("sh: 2: -size: not found").

Comprobé que $dir sí lo toma porque al escribir cualquier directorio, en este caso /home, me lista todos los archivos contenidos en él. Solo que como no toma "size" ¡me los muestra a todos!