Using bash Syntax Highlighting
exec cmd="mkdir -m 0755 /home/perico/directorio_nuevo";
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
¿Uso la función exec? ¿Cómo podría hacerse?
-
- Publicidad
Ejecutar comandos del shell desde script CGI
11 mensajes
• Página 1 de 2 • 1, 2
Ejecutar comandos del shell desde script CGI
por zinwandago » 2007-04-28 05:55 @288
¿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?
¿Uso la función exec? ¿Cómo podría hacerse?
- zinwandago
- Perlero nuevo
- Mensajes: 35
- Registrado: 2007-04-24 12:06 @545
Publicidad
por explorer » 2007-04-28 06:39 @319
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.
Si quieres ver ejemplos de mkdir(), system() y exec(), en este foro hay muchos. Usa el sistema de búsqueda.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
por zinwandago » 2007-04-28 07:11 @341
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.
Using perl Syntax Highlighting
y ejecutando el perl,mediante:
Using perl Syntax Highlighting
perl usuarios.cgi
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
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:
Using perl Syntax Highlighting
sub crear_nuevo_usuario{
open my $file, '>>', $htpasswd or die ("No se pueede..");
print {$file} join ":",$Input{'username'},crypth...;
print {$file} "\n";
close $file;
#Aqui deseo crear una carpeta personal para ese nuevo usuario.
mkdir '/home/perico/usuarios/'username'';
}
open my $file, '>>', $htpasswd or die ("No se pueede..");
print {$file} join ":",$Input{'username'},crypth...;
print {$file} "\n";
close $file;
#Aqui deseo crear una carpeta personal para ese nuevo usuario.
mkdir '/home/perico/usuarios/'username'';
}
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
Alguna sugerencia o ayuda.
- zinwandago
- Perlero nuevo
- Mensajes: 35
- Registrado: 2007-04-24 12:06 @545
por explorer » 2007-04-28 07:42 @362
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);.
Using perl Syntax Highlighting
mkdir "/home/perico/usuarios/$username", 0755
or die "ERROR: No pude crear el directorio: $!\n";
or die "ERROR: No pude crear el directorio: $!\n";
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
por zinwandago » 2007-04-28 10:49 @492
¿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.
Creo que es algo así como
Using bash Syntax Highlighting
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.
- zinwandago
- Perlero nuevo
- Mensajes: 35
- Registrado: 2007-04-24 12:06 @545
por explorer » 2007-04-28 12:49 @576
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).
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).
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
por zinwandago » 2007-04-29 06:37 @317
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
Using perl Syntax Highlighting
#!/usr/bin/perl
$nom = ejemplo;
mkdir "/home/perico/perl/$nom", 0777 or die "ERROR99:No puede crear directorio:$!\n";
@tam = system("du -hs /home/perico/perl/$nom");
print "Tamanio de la carpeta es: ",@tam,"\n";
$nom = ejemplo;
mkdir "/home/perico/perl/$nom", 0777 or die "ERROR99:No puede crear directorio:$!\n";
@tam = system("du -hs /home/perico/perl/$nom");
print "Tamanio de la carpeta es: ",@tam,"\n";
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
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
- zinwandago
- Perlero nuevo
- Mensajes: 35
- Registrado: 2007-04-24 12:06 @545
por explorer » 2007-04-29 06:54 @329
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().
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
por zinwandago » 2007-04-29 07:00 @333
Entonces seria simplemente poner:
¿Funcionaría?
Using perl Syntax Highlighting
#!/usr/bin/perl
$nom = ejemplo;
mkdir "/home/perico/perl/$nom", 0777 or die "ERROR99:No puede crear directorio:$!\n";
$tam = `du -hs /home/perico/perl/$nom`; #Sin poner system
print "Tamanio de la carpeta es: ",$tam,"\n";
$nom = ejemplo;
mkdir "/home/perico/perl/$nom", 0777 or die "ERROR99:No puede crear directorio:$!\n";
$tam = `du -hs /home/perico/perl/$nom`; #Sin poner system
print "Tamanio de la carpeta es: ",$tam,"\n";
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
¿Funcionaría?
- zinwandago
- Perlero nuevo
- Mensajes: 35
- Registrado: 2007-04-24 12:06 @545
11 mensajes
• Página 1 de 2 • 1, 2
¿Quién está conectado?
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 13 invitados