Foro - Perl en Español

Hacer un programa que calcule el número e a partir de la suma de la serie:

e = 1/1 + 1/1 + 1/(1*2) + 1/(1*2*3) + ...

hasta 100 sumandos. Para ello hacer un bucle con un acumulador (para e),
un contador (para el número del término) y un producto acumulado o factorial, que irá actualizándose en cada iteración con el anterior por el nuevo índice.

Pues esta es parte de mi tarea, lo que ...

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 ...

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 ...

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"; ...

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! :(

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 ...

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 ...

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/ ...

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 = ""; ...

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 ...