Foro - Perl en Español

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 tengo una Pregunta talvez un poko tonta pero necesito hacerla ¿Como puedo hacer para capturar mas de una direccion de correo electronico para
para enviarla a sus destinartarios.

Claro todo esto debe ineractuar con un CGI de PEL.
Sera bienvenida toda la ayuda 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 ...

Que usan ustedes para realizar las sesiones ?

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

Que me recomiendan ?

Saludos

Hola,

estoy intentando instalar módulos (mi versión de perl es v5.8.4 built for MSWin32-x86-multi-thread), como por ejemplo:

http://ppm.activestate.com/PPMPackages/zips/5xx-builds-only/TimeDate.zip

Este zip genera el fichero README, TimeDate.ppd y x86/TimeDate.tar.gz (probadlo)

al ejecutar ppm install TimeDate.ppd tal y como indica el fichero README me da el siguiente error:

Error: no suitable installation target found for package TimeDate.

Esto me está pasando con todos los módulos que intento instalar. Otro ejemplo, TermReadKey.

¿Alguíen puede explicarme por qué falla? y ...