Foro - Perl en Español

¿Se puede ejecutar algun comando del shell de Linux desde nuestro script CGI? Por ejemplo:


¿Uso la función exec? ¿Cómo podría hacerse?

Por poder, se puede hacer, con la función system(), pero... si se trata de crear un directorio, puedes hacer que sea el propio Perl el que lo haga:
Si quieres ver ejemplos de mkdir(), system() y exec(), en este foro hay muchos. Usa el sistema de búsqueda.

Gracias mi Dios!!jejej

Introduciendo la linea:

y ejecutando el perl,mediante:

me crea la carpeta, pero no consigo dar con la tecla. Lo que deseo es cuando un usuario se da de alta que también se cree su carpeta personal. Pero claro desde el navegador no me crea las carpetas, sólo lo hace cuando ejecuto Perl.

Por ejemplo, teniendo en cuenta vuestro código:



Alguna sugerencia o ayuda.

Escríbelo así:
y saldrá el porqué no ha podido hacerlo. Seguramente saldrá en los registros de actividad del servidor web o en el navegador si usas CGI::Carp qw(fatalsToBrowser);.

¿Cómo sería después para ver el tamaño de la carpeta de un usuario? ¿Cual es la instrucción de Linux?
Creo que es algo así como
Y devuelve una línea, donde el primer campo es el tamaño. Podriamos obtener ese campo con un split, con delimitador de campo el espacio (/s).

¿Cuál sería la instrucción para que se ejecute desde el CGI? Por cierto, ya tengo solucionado para poder crear carpetas. Gracias, explorer.

En Perl se puede usar la función stat() para saber el tamaño de un fichero, pero pasa saber el tamaño de un directorio, habría que hacer una búsqueda recursiva por todo el árbol e ir mirando el tamaño de cada uno. A veces, sí, es mejor usar un comando externo o un módulo que nos de esa funcionalidad, como puede ser File::Size.

Para ejecutar un comando externo:
* usar la función system() del Perl
* el comando ha ejecutar está en el path del usuario que lo va a ejecutar o, en su defecto, poner el path completo dentro de system (/usr/bin/du)
* el comando ejecutado por el usuario tiene permisos sobre los ficheros en los que va a obtener información o les va a modificar.

El resultado es una línea, sí. Y para obtener el primer campo, hacer un split, pero en lugar de /s, mejor usar ' ' (ver el porqué en la doc de split).

Ya lo tengo casi conseguido; probando...e ilustrándome con las referencias de Explorer (la personificación de Perl,es broma...) obtengo ésto:


Me crea la carpeta donde y con el nombre que quiero. Si está ya creada nos da error.
Con la llamada al comando de system(), da una línea con el tamaño de la carpeta total, es decir:

4,0K /home/perico/perl/ejemplo

Pero yo intento quedarme con el dato que me interesa, es decir, los 4,0K; empiezo obteniendo el resultado pero solo me devuelve 0 (ejecución correcta del comando system). ¿Cómo hago para que la salida del comando system la pueda almacenar en una variable en perl, después haría un split con delimitador de campo el espacio y así obtendría solo el tamaño? ¿Pero no consigo pasar la información que nos da la orden system(du...) a una variable?

Si me habéis entendido cómo lo solucionaría. Gracias de antemano. Un saludo

Según la documentación de system(), esta función no devuelve la salida del comando ejecutado, sino el código del estado de salida del comando. Si quieres capturar la salida de la ejecución, necesitas usar las backticks (`) o qx().

Entonces seria simplemente poner:


¿Funcionaría?