Foro - Perl en Español

Hola.

Empiezo a decir que todo lo que se de Perl y CGI lo he aprendido en esta página. Entiendo él código gracias a las buenas explicaciones paso a paso que se le dan.

He aquí mi cuestión. Queriendo ver resultados yo instalé Linux Fedora. Después Apache, después los mod de Perl mediante yum.......¿me seguís?

Bueno. Intenté ver el resultado de un CGI en mi máquina, es decir, montar el script CGI:
...

Hola tengo que reconocer el siguiente patrón en un texto que viene en un archivo .txt. El patrón es la frase que comience en una nueva línea con "En los concursos .." (espacio en blanco después de 'concursos') y finalice con "." o ":". Esta frase puede ocupar más de una línea, ya que el "." podría encontrarse en la línea siguiente.
Este es el código, no sé qué hago mal porque solo despliega una ...

Hola a todos soy nuevo por aqui, tengo unos manuales (aeronauticos) pero no puedo abrirlos la mayoria de los archivos tienen la extension PL desconocida para mi , se debe abrir con un visor al estilo de adobe reader, me han dicho que con worldview pero no lo encuentro por ningun lado. Los manuales son de una empresa canadiense (Bombardier) quizas alli se utilce mas ese visor que el tipico y conocido adobe reader. Alguien ...

Les planteo una pequeña duda respecto al uso de Tk en perl.


Mi problema es que quiero enviar por un socket info y en el otro lado quiero recibirla y mostrarla en un objeto tipo $caja

use Tk;
use Tk::Dialog;
require Tk::LabFrame;

$ventana = MainWindow->new;
$ventana->title("Jacano");
$ventana->geometry("350x250");


$etiketa = $ventana->LabFrame(-borderwidth => '1',-label=> "Caja",-labelside=> "acrosstop",-relief => 'flat');
$etiketa->pack;


$caja = $etiketa->Text(-borderwidth => '1',-font=> "Tahoma 8 normal",-relief => "solid");
$caja->pack;

MainLoop;


Mi intención es poder actualizar el ...

Hola a todos...

Resulta que en la nueva pincha hay un fanatismo con Windows y no me dejan tener mi servidor Linux. Ahora, yo necesito automatizar ciertas cosas y quiero hacerlas con Script en Perl.

¿Qué tan bueno es el ActivePerl de Windows? Nunca he trabajado con él. Los script que programaba para Linux me funcionaran aquí? ¿Si quiero añadirle un nuevo paquete, cómo podría hacerlo aquí?

Toda ayuda que puedan darme sobre el tema ...

Estaría interesado en conocer cuál es mi ip pública usando un script Perl; uso Activeperl en Win32.

Conseguirlo haciendo una petición HTTP a servidores del tipo http://www.whatismyip.org/ es muy sencillo pero no es lo que busco, eso ya lo sé hacer. Algún módulo, alguna idea de cómo conseguirlo usando otro procedimiento si existe.

Gracias.
Juan

Hola a todos,

Tengo problemillas al leer el siguiente fichero XML:

$VAR1 = {
'Type' => 'Projection',
'Filters' => {
'In' =>
},
...

Lo ...

Muy buenas, a ver cómo me puedo explicar.

Tengo la línea escrita en bash$Comentario="Esto es un comentario";
/usr/bin/logger -p local5.notice "$S3E|$host|SYSTEM_STATUS|0|PROC_OCUP_CPU $alarm #$Comentario"

Estoy modificando el script para pasarlo a Perl y tengo el problema en esa línea. He escrito lo siguiente pasa pasarlo a Perl:
$Comentario='Esto es un comentario';
system("/usr/bin logger -p local5.notice \"S3E|$host|SYSTEM_STATUS|0| PROC_OCUP_CPU $alarm #$Comentario\"");

Cuando lo ejecuto no me da ningún error, pero tampoco me da ningún resultado. ¿Creéis que significa ...

Hola a todos,

El caso es que necesito abrir un fichero y extraer únicamente las líneas que contengan un determinado string ($string). Dichas líneas (lineas útiles) son a continuación procesadas por una función determinada:

open($fileIO,$file);
extraer_lineas_utiles($fileIO,$string);
procesar_lineas_utiles;

Necesitaría por lo tanto aplicar algo así como un "grep" sobre dicho fichero y almacenar las líneas que contengan dicho string (líneas útiles) en otro fichero u en una estructura de datos determinada.
He buscado información sobre la ...

Hola todos. Disculpen, tengo un problema. Miren, tengo un foro que no tiene un sistema antirobots, es decir, te registra sólo con poner user, password y mail.
Entonces estoy intentando hacer un script que cree una cantidad de user para ver si mi foro cae pero no puedo hacerlo funcionar. Ahí dejo mi código para que me corrijan. Gracias.

#!/usr/bin/perl

use IO::Socket;

$x = 0;

print q(register user xD);

print q(Host |sin ...