• Jueves 18 de Abril de 2024, 15:40

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - entius54

Páginas: [1]
1
Perl / Control de sesiones, AYUDA
« en: Sábado 5 de Abril de 2003, 09:30 »
La única manera de conseguir que tu explorador no almacene las páginas (como mínimo tan alegremente como lo hace) es decirle a tu servidor que envie explícitamente la señal de no guardar nada porque su caducidad es inmediata. Con los metatags y similares no tienes nada demasiado robusto así que, lo mejor, en el caso de apache, es compilar el módulo ... mmm ... no me acuerdo ahora (apache.org modules) lo compilas y le dices que como cabezera a todas las peticiones envie la señal de no guardar como cache.
Así cuando el usuario tire para atrás le mostrará esa advertencia conforme la página ha caducado.

Otra manera es que los contenidos de la web sean escupidos por un exec y que este antes de escupir compruebe login y password. Como el exec no acepta ningun argumento no se los puedes enviar por lo que las cookies seran imprescindibles aquí.
Sino, la otra opción es que llame a un script y que le envie via GET o POST los datos (id + pass), y si el script los verifica correctamente pues que le devuelva el html. Pero con esto siempre estarás escupiendo todo el html via scripts y puede ser muy tedioso.

La mejor alternativa sin duda es (yo estoy hablando de perl) utilizar algun módulo de perl embebido por lo que puedes comrpovar (supongo) fácilmente la identidad de los usuarios.
Mason es excelente (supongo, no lo he utilizado), y convierte perl en algo similar al php (www.masonhq.com).

2
Perl / Re: iguales...
« en: Sábado 15 de Marzo de 2003, 02:15 »
pues dame las grácias visitando perlattack.com
:birthday::guitar::hippi::comp:

3
Perl / Re: iguales...
« en: Viernes 14 de Marzo de 2003, 18:57 »
sub condense {
   my(undef,$array)=@_;
   my(@condensed);
   my($valid) = 1;
   while ($#$array >= 0) {
      foreach (@condensed) {
         $valid = 0 if ($array->
  • eq $_);

         }
      if ($valid) {
         push @condensed, shift @$array;
         } else {
         shift @$array;
         }
      $valid = 1;
      }

   @$array = @condensed;
   }

Donde le enviarias tu array via referencia y no te devolvería nada porque ya cambiaría el array original.

$obj->condensed(@tuarray);
por ejemplo

4
Perl / Necesito ayuda en PERL
« en: Lunes 10 de Marzo de 2003, 01:13 »
usas el LWP.pm, te bajas la página web en questión, le aplicas la tira de regexp y listos :beer:

5
Perl / modulo CGI
« en: Lunes 10 de Marzo de 2003, 01:09 »
o man, o el propio cgi.pm, o el libro cgi.pm, o mirando tu mismo el código, ... :birthday:

6
Perl / combinar cadenas, necesito ayuda!
« en: Lunes 10 de Marzo de 2003, 01:08 »
si necesitas que te de la respuesta en una página web, entonces perl con servidor, si sólo necesitas la respuesta, perl únicamente.
En cuanto a la lógica, eso ya lo trbajarás tu!:D :alien::hippi:

7
Perl / Los permisos de ejecucion en perl
« en: Lunes 10 de Marzo de 2003, 01:06 »
pero para ejecutar el pl ya haces perl xxx.pl?
prueba perl -w xxx.pl

www.perlattack.com

8
Perl / arreglos bidimensionales
« en: Lunes 10 de Marzo de 2003, 01:02 »
tienes un array
@array;
$refArray = @array;
ahora tienes un segundo array
@array2;
$refArray->
  • = @array2;


y ya tienes las 2d
$refArray->
  • ->
  • ;

$refArray->
  • ->[1];

$refArray->
  • ->[2];

$refArray->[1]->
  • ;

$refArray->[1]->[1];
etc etc

www.perlattack.com

Páginas: [1]