• Publicidad

Formulario muy sencillo

¿Ya sabes lo que es una referencia? Has progresado, el nível básico es cosa del pasado y ahora estás listo para el siguiente nivel.

Formulario muy sencillo

Notapor rklz » 2007-12-06 11:57 @539

Saludos a todos, la pregunta es la siguiente:

Quería saber cuál es la forma más rápida y sencilla de almacenar simplemente en un archivo los datos (user y password) extraídos de un formulario web.

Ej.: Tengo 2 campos, uno input type=text y otro input type=password y quiero que al darle submit simplemente se guarden en un archivo que crearía ese mismo script; ¿cuál es la forma más rápida y fácil?
Avatar de Usuario
rklz
Perlero nuevo
Perlero nuevo
 
Mensajes: 38
Registrado: 2007-05-25 13:28 @603
Ubicación: Rosario, Argentina

Publicidad

Notapor explorer » 2007-12-06 12:10 @548

La forma más inmediata es usando una de las facilidades que provee el módulo CGI. En concreto, la función save().

Busca en la documentación de CGI, el apartado "SAVING THE STATE OF THE SCRIPT TO A FILE".
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Notapor rklz » 2007-12-06 13:32 @605

Gracias por la respuesta, creo que es lo que estaba buscando, después lo voy a verificar...

Resulta que por algún motivo que no viene al caso "rompí" el interprete de Perl en mi Debian.
Cuando intento ejecutar algún script Perl me dice:

Código: Seleccionar todo
Can't locate strict.pm in @INC (@INC contains: /etc/perl /usr/local/lib/perl/5.8.8 /usr/local/share/perl/5.8.8 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.8 /usr/share/perl/5.8 /usr/local/lib/site_perl .) at /usr/lib/perl/5.8/Cwd.pm line 3.
BEGIN failed--compilation aborted at /usr/lib/perl/5.8/Cwd.pm line 3.
Compilation failed in require at conf.pl line 41.
BEGIN failed--compilation aborted at conf.pl line 41.


pero no solamente es que no encuentra strict, en este caso arrojó ese módulo pero depende de qué script arroja distintos errores, no sé si me explico.

La cuestión es que se me había ocurrido reinstalarlo mediante:

Código: Seleccionar todo
apt-get remove perl ; apt-get install perl


pero al querer removerlo me quiere sacar con el una infinidad de paquetes necesarios para el servidor con el que tengo este problemita.

Entonces mi pregunta, ¿existe alguna manera de reinstalarlo, sin afectar a los otros paquetes del sistema y así poder dejar una instalación limpia de Perl?

Muchísimas gracias
Avatar de Usuario
rklz
Perlero nuevo
Perlero nuevo
 
Mensajes: 38
Registrado: 2007-05-25 13:28 @603
Ubicación: Rosario, Argentina

Notapor rklz » 2007-12-06 15:05 @670

Recién actualicé los repositorios y encontró un update de perl y perl-base; le di apt-get upgrade y me tiró esto:

Código: Seleccionar todo
debconf: Perl may be unconfigured (Can't locate strict.pm in @INC (@INC contains: /etc/perl /usr/local/lib/perl/5.8.8 /usr/local/share/perl/5.8.8 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.8 /usr/share/perl/5.8 /usr/local/lib/site_perl .) at (eval 1) line 2.
BEGIN failed--compilation aborted at (eval 1) line 2.
) -- aborting
(Leyendo la base de datos ...
39273 ficheros y directorios instalados actualmente.)
Preparando para reemplazar perl-modules 5.8.8-7 (usando .../perl-modules_5.8.8-7etch1_all.deb) ...
Desempaquetando el reemplazo de perl-modules ...
Preparando para reemplazar libc6 2.3.6.ds1-13 (usando .../libc6_2.3.6.ds1-13etch2_i386.deb) ...
Desempaquetando el reemplazo de libc6 ...
Configurando libc6 (2.3.6.ds1-13etch2) ...
Can't locate strict.pm in @INC (@INC contains: /etc/perl /usr/local/lib/perl/5.8.8 /usr/local/share/perl/5.8.8 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.8 /usr/share/perl/5.8 /usr/local/lib/site_perl .) at /usr/sbin/update-rc.d line 6.
BEGIN failed--compilation aborted at /usr/sbin/update-rc.d line 6.
dpkg: error al procesar libc6 (--configure):
 el subproceso post-installation script devolvió el código de salida de error 2
Se encontraron errores al procesar:
 libc6


¡ayuuuudaaaa!
Avatar de Usuario
rklz
Perlero nuevo
Perlero nuevo
 
Mensajes: 38
Registrado: 2007-05-25 13:28 @603
Ubicación: Rosario, Argentina

Notapor explorer » 2007-12-06 16:43 @738

Perl es básico en muchos sistemas, como por ejemplo en Debian, para la instalación y funcionamiento de muchos programas.

apt-get tiene una opción --reinstall, para reinstalar paquetes sin tener que quitarles. Lo malo es que muy posiblemente dependa de que perl ya esté instalado.

Si strict.pm no está en tu sistema, cógelo de otro ordenador o bájatelo desde CPAN.

El último error que muestras indica un fallo a la hora de actualizar el paquete libc6, que es vital del sistema. Pero no puede porque perl no está completo. Intenta recuperar el perl antes de hacer una actualización del sistema.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Notapor rklz » 2007-12-07 13:59 @624

Buenas ..
Lo que hice fue fijarme en otro servidor debian/linux donde estaba strict.pm para bajarlo y copiarlo. locate strict.pm arrojó esto: /usr/share/perl/5.8.8/strict.pm.

Me voy al servidor que tengo el problema y resulta que strict.pm ya estaba en esa carpeta, por las dudas lo reemplacé con el que baje del otro y nada, :S sigue diciendo lo mismo...

¿Alguna idea?
Avatar de Usuario
rklz
Perlero nuevo
Perlero nuevo
 
Mensajes: 38
Registrado: 2007-05-25 13:28 @603
Ubicación: Rosario, Argentina

Notapor Kiloko » 2007-12-07 14:09 @631

¿Y ya te fijaste que tengan la misma versión?

¿O el clásico borrar todo y volverlo a instalar?
Nunca interrumpas a tu enemigo cuando está cometiendo un error
Napoleón Bonaparte
Avatar de Usuario
Kiloko
Perlero nuevo
Perlero nuevo
 
Mensajes: 243
Registrado: 2007-07-10 18:26 @810
Ubicación: MOnterrey NL

Notapor rklz » 2007-12-07 14:10 @632

si , Perl 5.8.8 los 2 :(
Avatar de Usuario
rklz
Perlero nuevo
Perlero nuevo
 
Mensajes: 38
Registrado: 2007-05-25 13:28 @603
Ubicación: Rosario, Argentina

Notapor explorer » 2007-12-07 14:30 @646

Ya veo cómo lo puedes arreglar.

Conviértete en root.

Entra en el directorio /usr/share/perl/.

Ejecuta:

Sintáxis: [ Descargar ] [ Ocultar ]
Using bash Syntax Highlighting
ln -s 5.8.8 5.8
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4

Es decir, si el fichero está pero no aparece al programa, hay que mirar el contenido de @INC, e @INC indica que está mirando en el directorio /usr/share/perl/5.8, no en el /usr/share/perl/5.8.8.

En mi Debian, hay un enlace simbólico en ese directorio que apunta de 5.8 -> 5.8.8. Así, al menos encontrará strict.pm.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Notapor rklz » 2007-12-07 15:29 @687

Problema solucionado, muchísimas gracias explorer, no sabes del problema que me sacaste.

Realmente te lo agradezco mucho, y en lo poco que te pueda ayudar no dudes en pedírmelo.

Muchísimas gracias :)
Avatar de Usuario
rklz
Perlero nuevo
Perlero nuevo
 
Mensajes: 38
Registrado: 2007-05-25 13:28 @603
Ubicación: Rosario, Argentina


Volver a Intermedio

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 5 invitados