• Publicidad

Fecha actual 2024-11-24 12:25 @559

News News of Mundo Perl

Site map of Mundo Perl » Foro : Mundo Perl

Modificar Chat de Perl para mandar mensajes privados

Hola de nuevo, un saludo para todos.

Tengo hecho en Perl un Chat, este se abre con frame y quisiera poner la opción de enviar privados entre los usuarios, alguien podría darme un script o alguna idea como puedo hacerlo ?.
Los nombres de usuarios están en ..

<nobr><FORM name="isn" ACTION="$ENV{'SCRIPT_NAME'}" METHOD="POST" onSubmit="return JoinIn();">
<font face="verdana"><b>ESCRIBA MENSAJE: </font></b><input name=username type=hidden value="$form{'username'}">
<input name=room type=hidden value="$form{'room'}">
<input name=nombre type=text value="$form{'nombre'}">
<input type=text name=message size=42 onfocus="javascript:this.select()">
<input ...
Read more : Modificar Chat de Perl para mandar mensajes privados | Vistas : 1877 | Respuestas : 3 | Foro : Intermedio


Cómo usar CGI::Session en Windows

Gente, hace una semana que me estoy dando la cabeza contra la pared para usar el fucking CGI::Session y NO ME FUNCIONA !!! :x

Me leí el tutorial y la documentación del CPAN y nada, a ver, las sesiones las crea, tengo un directorio con c:/sesions/ y así tengo cada una de las sesiones, pero cuando quiero leerla SE ME RIE EN LA CARA Y ME SALTA ...
Read more : Cómo usar CGI::Session en Windows | Vistas : 2924 | Respuestas : 10 | Foro : Intermedio


Usar la función rename

Intento utilizar la funcion rename con el siguiente codigo.
my $dir_consulta = "E:/camb_ext/";
my $fichero = '';
my $resultado = '';


if(opendir(DIRECTORIO,$dir_consulta))
{
#Leemos el listado de fichero que lo componen
foreach (readdir DIRECTORIO)
{
$fichero = $_;
#Seleccionamos los fichero que tengan un nombre con el formato *.*,
#donde * representa cualquier cadena alfanumérica
if ($fichero =~ /\w\.\w/)
{
my $aux = substr($fichero,0,(length($fichero)-4));
my $nuevo_nombre = $aux."_p.jpg";
$resultado = rename($fichero,$nuevo_nombre);

}
}
print "FIN"; ...
Read more : Usar la función rename | Vistas : 2438 | Respuestas : 4 | Foro : Intermedio


Validar Password

Hola:

Soy nueva en Perl y necesito validar el password de una aplicación con el siguiente formato; el password debe contener por lo menos una letra en mayúscula, una en minúscula y un número; además de tener un máximo de ocho caracteres. Tengo problemas en validar lo del formato; ¿Alguien podría ayudarme?. ¡Gracias! :(
Read more : Validar Password | Vistas : 1956 | Respuestas : 2 | Foro : Básico


Gráficos en Perl

Hola, me he leido el tutorial de lso graficos ne perl de la web, y la cosa no em ha quedado muy clara.
Ya tengo instalado el modulo Graph.
He intentado hacer un copy y paste del ejemplo en un archivo , en grafico.pl. Ahora bien, ese es el archivo que he de ejecutar en el navegador?(pq no me deja..) , y si hago >perl grafico.pl tampoco funciona, asi que he hecho lo que un ...
Read more : Gráficos en Perl | Vistas : 2515 | Respuestas : 5 | Foro : Intermedio


¿Texto sin formato o MySQL?

Hola,

¿que utiliza más recursos?:

- MySQL: Por cada visita se abre una sesión de mysql que comprueba un dato (una cifra), si esa cifra es igual a otra pues coge 6 datos (que son una linea html cada dato).
- TXT: Por cada visita se abre un txt que tiene una cifra, si esa cifra es igual a otra se abren 6 txt y se cogen los datos (que son una linea html cada ...
Read more : ¿Texto sin formato o MySQL? | Vistas : 2273 | Respuestas : 5 | Foro : Web


+ problemas con CGI::Session

Hola gente, ahora quiero usar el método load y me dice que no existe tal método :x

my $session = CGI::Session->load("driver:File", undef, { Directory => 'C:/teta/' }) || $systemaweb->error('cargar session',CGI::Session->errstr());

esto es lo que coloco (también problé sin parámetros..) Y el error log me dice que

Premature end of script headers: show.pl, referer: http://localhost/ ...
Read more : + problemas con CGI::Session | Vistas : 1846 | Respuestas : 3 | Foro : Intermedio


Como envíar un email a varios destinatarios

Hola a todos soy novato en PERL y tengo un problema con un cgi el cual tengo funcionando para
envio de un mail, pero lo que quiero es hacer que este funcione para varios destinatarios. pongo mi aplicacion para ver si alguien me puede ayudar :roll: gracias.

aplicacion cgi

#/usr/local/bin/perl


use CGI;
$cgi=new CGI;

$sendmail="/usr/lib/sendmail";
$recommendSubject = "Una amiga quiere que visites beinggirl.net";
$recommendSender = ""; ...
Read more : Como envíar un email a varios destinatarios | Vistas : 2957 | Respuestas : 2 | Foro : Web


Problemas con CGI::Session

Hola gente, me instalé el CGI::Session haciendo

install CGI-Session

en el PPM

Coloco en mi script use CGI::Session y todo bien pero cuando coloco

my $session = new CGI::Session();

Me tira error y al fijarte en el error log aparece todo esto


[Thu Dec 15 15:57:25 2005] [error] [client 127.0.0.1] Premature end of script headers: show.pl, referer: http://localhost/cgi-bin/systema/modules/contenido/show.pl?l=loggin_form

[Thu Dec 15 15:57:25 2005] [error] [client 127.0.0.1] CGI::Session doesn't seem to be a valid CGI::Session ...
Read more : Problemas con CGI::Session | Vistas : 1538 | Respuestas : 2 | Foro : Intermedio


Mejor opción para manejar sesiones en Perl

Que usan ustedes para realizar las sesiones ?

CGI::Session ?
Sesión en la base de datos ?
Sesion en archivos XML ?

Que me recomiendan ?

Saludos
Read more : Mejor opción para manejar sesiones en Perl | Vistas : 1847 | Respuestas : 3 | Foro : Intermedio


 

Identificarte  •  Registrarse


Estadísticas

Mensajes totales 36880 • Temas totales 7428 • Usuarios totales 1981