Foro - Perl en Español

Hola.

Tengo un script en Perl que entra en varios equipos Cisco y me muestra el estado de las conexiones. El estado de las conexiones las guardo en un archivo que se muestra correctamente en Linux, pero cuando lo mando por mail en formato HTML no me conserva los saltos de línea.

Sabéis cómo se puede cambar los EOL (End of Line) por <br>.

Gracias.

Hola amigos.

Esta vez voy a pedir una ayuda que sé que a muchos de ustedes será muy sencilla pero yo soy malísimo con expresiones regulares.

Lo que necesito es aplicarle una expresión regular a un string para que le quite tanto espacios en blanco, como enter, no sé si me expliqué.

Tengo un textarea donde el usuario puede teclear tantos mails como quiera con la condición de que los debe separar por comas, lo ...

Hola a todos...

Tengo un problemilla al intentar hacer system("export PID_SYNC=$pid") donde $pid es mi variable local que he sacado con $$.

Resulta que al ejecutarlo me dice la bash lo siguiente: Can't exec "export": No existe el fichero ó directorio at....

Lo mismo ocurre cuando intento hacer sytem("unset PID_SYNC").

¿Sabe alguien qué puede estar ocurriendo?

Muchas gracias.
Saludos.

Saludos, quisiera saber si me pueden ayudar.

Yo hago una consulta a la base de datos, lo cual me devuelve aprox. 15 resultados. Los quiero meter a una variable la cual la tengo que utilizar para otra query. El problema es que no logro llenar la variable con la estructura deseada.

my $sth1 = $dbSeg->prepare("select groupid from reportes where repoid='IEF14'");
$sth1->execute( ) or die $DBI::errstr;
while ( @grupos = $sth1->fetchrow_array ) {
push(@prueba , join(',', ...

Hola gente, necesito ayuda.

Al comienzo de un programa en Perl tengo esto: $/=valor, ¿alguien sabe qué es lo que hace $/?

Desde ya muchas gracias.

Bueno, pues primeramente me presento: me llamo Jacob Nuñez, y me estoy tratando de meter en este gran mundo de la programación en Perl.

Ya hace varios años que he tratado de desarrollar un script CGI en Perl que pueda subir archivos grandes en pequeñas partes, a lo mejor esto ya lo han visto por ejemplo en RapidShare o MegaUpload; los scripts que tienen (el de RapidShare está en hecho en Perl), al subir un ...

¡Hola a todos!
Buff, ha sido un larguísimo tiempo desde mi anterior post, jeje.

Esta vez estoy liado con un programilla, y tengo un problemilla.

Pues éste tiene una array llena de URL (@hrefs) y dentro de ella hay valores repetidos.

La intención era mostrar únicamente las URL que como mínimo contengan ($target) que target podría ser por ejemplo ("MyDom.com") de forma que al listar y filtrar la array, solo muestre los que tengan ese ...

Tengo un pequeño problema, creo que es muy básico, pero me gustaría saber si se podría resolverse. Dado un pequeño código para hacer Request a una página.

#!/usr/bin/perl

use LWP::UserAgent;
use HTTP::Request;

$b = LWP::UserAgent->new() or die "No se puede inicializar el modulo.";
$b->agent('Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)');

$host = "http://www..com";
$respuesta = $b->request(HTTP::Request->new(GET=>$host));
$contenido = $respuesta->content;
print $contenido;


Cuando normalmente se visita una página usando un navegador (Firefox) toda información del código ...

Hola a todos.

Tengo un problema para mostrar desde mi página una imagen creada con CGI.

Tengo en mi servidor una página cualquiera que llama a un gráfico así:

<img src="http://127.0.0.1/cgi-bin/pruebas/grafico1.cgi" border="0">

y estoy usando un código que encontré por estos lares:

#!c:\perl\bin\perl.exe -w

use GD::Graph::bars;
use strict;

my @campos = ('Mar 2006','Abr 2006','May 2006', 'Jun 2006', 'Jul 2006');
my @valores = (547, 2282, 2798, 2354, 4326);
my @graf = (\@campos, \@valores);
my $grafico = ...

Hola a todos.

Alguien sabe dónde puedo obtener documentación de la API de este módulo.

Por ejemplo, no tengo ni idea de los métodos que existen para una clase en concreto.

Mi problema particular es que trato de obtener la posición x,y de un icono generado con Gtk2::TrayIcon.

Muchas gracias por adelantado.