Foro - Perl en Español

Hola :P

Lo que preguntaré seguramente es tonto pero me gusta entender bien las cosas y con Perl hace mucho había hecho una tarea para mis estudios pero pasó tanto el tiempo que ya perdí la mano....

Y esta es una de las cosas que no me acuerdo mucho :oops:

Se dice que Perl es greedy porque es "glotón": ...

¡¡Hola a todos!!

La verdad es que mi nivel de Perl es bastante básico. Estoy haciendo un script que en principio no debería ser muy complicado.

Lo que tengo es un fichero del que solo me interesan unas determinadas filas. Una vez identificadas esas filas guardo en diferentes variables el contenido de éstas (en principio el script lo hace bien), luego tengo otro fichero en el que hago algo similar (solo que esta vez me ...

Hola a todos.

Realmente esta pregunta es medio JavaScript y medio Perl (jejeje), pero debido a que el programa está en CGI usando Perl pues me atrevo a preguntarlo aquí.

Debo enviar datos a un programa CGI, pero resulta que algunos de los datos que debo enviar están en el documento pero no en el formulario; por ejemplo, tengo un campo select con id ds4.
<select name="s4" id="ds4">
<option value="1">phone 1
<option value="2">phone 2
<option ...

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.

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.

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

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

Después de hacer el upload del archivo la info que me retorna es ésta:
use CGI::UploadEasy;

my $ue = CGI::UploadEasy->new(-uploaddir => '../clientes');
my $info = $ue->fileinfo;
my $cgi = $ue->cgiobject;

return Dumper $info;

Code: Seleccionar todo

$VAR1 = { 'contrcc_5.jpg' => { 'ctrlname' => 'uploadfile', 'bytes' => '3418', 'mimetype' => 'image/jpeg' } };

Y quiero obtener el nombre contrcc_5.jpg... :? ¿Cómo puedo lograrlo?

Tengo un archivo del siguiente tipo:

SEQ 1 KSTYRTPNFDDVLKENNDADKGRSYAYFMVGAMGLLSSAGAKSTVETFIS 50 1EZV
STR TTTTT TTTTB TTTTTHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH 1EZV
REM 1EZV
REM . . . . . 1EZV
SEQ 51 SMTATADVLAMAKVEVNLAAIPLGKNVVVKWQGKPVFIRHRTPHEIQEAN 100 1EZV
STR H TTTTT EEEEGGG TTTEEEEEEETTEEEEEEE HHHHHHHH 1EZV
REM 1EZV
REM . . . . . 1EZV
SEQ 101 SVDMSALKDPQTDADRVKDPQWLIMLGICTHLGCVPIGEAGDFGGWFCPC 150 1EZV
STR GGGTTTT GGG TTTTTEEEEE TTTTT EETTTTTT EEETT 1EZV
REM 1EZV
REM . . . 1EZV
SEQ 151 HGSHYDISGRIRKGPAPLNLEIPAYEFDGDKVIVG 185 1EZV
STR TTEEETTTT EEE EEEETTEEEE ...