Foro - Perl en Español

Con tristeza, me reincorporo al foro, y lo encuentro casi vacío, pero a seguir adelante.

Mi pregunta está referida a cómo hacer un link desde un pl para que me muestre una página htm.

Muchas gracias, :lol:

Hola a todos

Tengo un problema con el manejo de hilos desde perl para Windows Xp. Implementé un script que crea hilos cada determinado tiempo, y cada hilo ejecuta un script para realizar una función determinada, he tenido problemas al usar los hilos nativos de Perl, al llegar a los 64 hilos el script se vuelve incapaz de crear más hilos. Utilicé también los hilos del módulo threads y el problema aquí es diferente, puede ...

Estoy aprendiendo Perl y uno de los ejercicios que estoy haciendo es sustituir todas las palabras de un fichero (por ejemplo todas las "este"). Hago esto

#!perl

open (FICH, "+>Este.txt") || die "No se pudo abrir el archivo\n";;
while (my $linea = <FICH>)
{
my $cont1 = $linea =~ s/este/aquel/g;
print FICH $linea;
$cont2 = $cont2 + $cont1;
}
close (FICH);
print "Se han sustituido $cont2 veces la palabra este por aquel";

Pero el ...

Hola he tenido este problema desde hac unos dias y no lo he podido resolver si puediran ayudarme lo agradeceria


root@Julia:/# perl serial.pl
no puedo abrir /dev/ttyS0: Illegal seek at serial.pl line 17.
(in cleanup) Can't call method "opened" on an undefined value at /usr/lib/perl5/site_perl/5.8.0/i486-linux/Device/SerialPort.pm line 2020 during global destruction.

el programa que estoy utlizando es el siguiente:

#!/usr/bin/perl

use Device::SerialPort 0.12;

$LOGDIR = "/var/log";
$LOGFILE = "serial.log";
$PORT = "/dev/ttyS0";

$ob = Device::SerialPort -> ...

Hola, lo primero de todo un tiron de orejas para el listillo que se dedico a cargarse el foro y lo segundo una cuestion, que no se si esta dentro del ambito de este foro.
Os comento, utilizo perlapp para pasar mis cgi's de perl a ejecutables, recientemente quiero utilizar el modulo excel-template, funciona correctamente cuando pruebo los cgi's pero en el momento que los paso a ejecutables, obtengo el siguiente mensaje de error al ...

Esta noche me clavo una chervecha en honor al foro... :lol:

Brindemos todos por este foro que tanto nos ayuda...

A brindar se ha dicho !!!!!!!



Saludos
PD: Beber en exceso es perjudicial para la salud !!! jajaja !!!

Hola, estoy intentando instalar el módulo Glade-Perl-Two-0.01 en un AMD64 corriendo bajo Mandrakelinux-10.1_86_64. Hice un primer intento de instalación fallido, en el que tomé nota de las dependencias que faltaban y las instalé (ahi va la lista de paquetes instalados: Glib-1.0.81, Gtk2-1.0.81, Gtk2-Ex-FormFactory-0.53, Gtk2-GladeXML-1.004, Unicode-String-2.07, XML-Writer-0.531; todos bajados de CPAN).

En el segundo intento sí conseguí instalar el módulo Glade-Perl-Two-0.01. Aparentemente todo fué ok, pero al intentar ejecutar el script glade2perl-2 me aparecía un mensaje ...

Foro Reloaded...
Mascota Reentered...

No podía permitir que este mensaje no apareciera en el foro.

Especialmente el primer programa del camello.

El programa no sirve para nada, pero el código y la salida son espectaculares.
#!/usr/bin/perl -w
use strict;
$_='ev
al("seek\040D
ATA,0, 0;");foreach(1..2)
{<DATA>;}my @camel1hump;my$camel;
my$Camel ;while( <DATA>){$_=sprintf("%-6
9s",$_);my@dromedary 1=split(//);if(defined($
_=<DATA>)){@camel1hum p=split(//);}while(@dromeda
ry1){my$camel1hump=0 ;my$CAMEL=3;if(defined($_=shif
t(@dromedary1 ))&&/\S/){$camel1hump+=1<<$CAMEL;}
$CAMEL--;if(d efined($_=shift(@dromedary1))&&/\S/){
$camel1hump+=1 <<$CAMEL;}$CAMEL--;if(defined($_=shift(
@camel1hump))&&/\S/){$camel1hump+=1<<$CAMEL;}$CAMEL--;if(
defined($_=shift(@camel1hump))&&/\S/){$camel1hump+=1<<$CAME
L;;}$camel.=(split(//,"\040..m`{/J\047\134}L^7FX"))[$camel1h
ump];}$camel.="\n";}@camel1hump=split(/\n/,$camel);foreach(@
camel1hump){chomp;$Camel=$_;tr/LJF7\173\175`\047/\061\062\063
45678/;tr/12345678/JL7F\175\173\047`/;$_=reverse;print"$_\040
$Camel\n";}foreach(@camel1hump){chomp;$Camel=$_;y/LJF7\173\17
5`\047/12345678/;tr/12345678/JL7F\175\173\047`/;$_=reverse;p
rint"\040$_$Camel\n";}#japh-Erudil';;s;\s*;;g;;eval; eval
("seek\040DATA,0,0;");undef$/;$_=<DATA>;s$\s*$$g;( );;s
;^.*_;;;map{eval"print\"$_\"";}/.{4}/g; __DATA__ \124 ...

He estado realizando un pequeño script, para leer los archivos de un directorio, y realizar un thumbnail de las imagenes "on the fly", pero no logro conseguirlo.

El modulo que estoy utilizando es GD, es necesario guardar las imagenes creadas en otro directorio, o se pueden crear los thumbnails sin necesidad de guardarlos.

Gracias, por la atencion y ayuda.

Ayuda a que el sitio de "Perl en Español" siga creciendo. Es muy sencillo y lo puedes hacer de tres distintas maneras:

Pide un tutorial Si tienes algún tema del cual no has encontrado un buen tutorial en español y crees que sería muy buena idea que exista un tutorial de ello en el sitio, dilo. Es bueno saber las necesidades de los programadores de perl, así podemos hacer tutoriales orientados a necesidades concretas.

Recomienda ...