Foro - Perl en Español

Hola,

Tengo una archivo que presenta el siguiente formato.

Data1 (1.2),(7.8),(8.5),(10.5)
Data2 (5.3),(5.6),(56.7),(78.6)

Yo quisiera recuperar toda la información a partir del primer "(" y guardarla en un arreglo.

Para eso escribí if(@arreglo) =~ m/\(/
Perl toma el paréntesis como un paréntesis real y no como un patrón.

¿Podrían decirme cómo puedo indicarle a Perl que este "(" es un patrón y no un paréntesis?


Muchas gracias.

Estimados,

Antes que todo me presento, soy un usuario que a utilizado mucho este sitio web, muchos de los problemas que he presentado en mi vida laboral los resolví gracias a este foro, nunca me había visto en la necesidad de postear, ya que mis dudas ya estaban respondidas en el foro.

Les planteo el problema que estoy presentando:

Tengo un script Perl cuya funcionalidad es retornar 6 valores. El primer valor corresponde a un ...

Bueno, tengo esta duda, que no puedo correr este simple programa en Perl.
Me marca error en DBD::pg que el controlador de conexión de PostgreSQL con Perl.
Si alguien me puede decir dónde lo puedo descargar estoy agradecido.

use DBI; use DBD::Pg; my $dbh = DBI->connect("dbi:Pg:dbname=nombredemibasededatos"); my $rc = $dbh->disconnect();

Buenas...

Tengo que hacer un programa, que analice documentos XML, y que genere procesos con la información obtenida. El XML puede ser de miles de líneas, como puede no serlo (mínimo 40 o 50 líneas). Para esto, estaba utilizando XML::LibXML, pero hoy encontré XML::Simple, con la gracia de pasar toda la información a un super %hash XMLin(). Al parecer dejaré de lado XML::LibXML por un rato, para ver cómo va el avance con respecto al ...

Buenas tardes a todos, soy un principiante en este mundo interesante de Perl y deseo saber cómo desplegar el gráfico que viene como ejemplo en el tutorial de la página que tiene como título: "Creando gráficos con Perl". Copié el ejemplo tal y como está, bajé la librería de gráficos y la instalé en la carpeta que indican, pero al ejecutar el programa en el modo MSDOS, me despliega pura basura. ¿Qué estaré haciendo mal? ...

Hola amigos, resulta que debo acceder a un equipamiento cisco y debo acceder a cierta información vía comandos (cli).

Tengo el sgte. código:
#/usr/bin/perl -w

use Net::Telnet;
$telnet = new Net::Telnet ( Timeout=>10, Errmode=>'die', input_log=>"inputlog",dump_log=> outputlog);
$telnet->open('172.16.54.210');
$telnet->waitfor('/Password:/');
$telnet->print('xxxxx');
$telnet->waitfor('/SCE_UACH>/');
$telnet->print('enable 15');
$telnet->waitfor('/Password:/');
$telnet->print('xxxxx');
$telnet->waitfor('/SCE_UACH#>/');
@haber = $telnet->cmd('sh version');
print @haber;
$telnet->close;

Haciendo esto me fijo en los log definidos y veo que se ejecuta los comandos pero tengo un error de command ...

Buenas a todos.

Tengo una duda sobre la función geco, o gefa, si es que estoy usando la incorrecta.

Necesito resolver un sistema de ecuaciones:
a1x + b1y + c1z = i
a2x + b2y + c2z = j
a3x + b3y + c3z = k

Para eso uso la eliminación de Gauss, para hallar los valores de x,y,z.

El problema es que en la documentación la función no la entiendo muy bien.
Dice más ...

Algunas páginas web (especialmente las que tienen vínculos a series o películas) están llenas de publicidad y tienes que tocar muchas veces al ratón hasta llegar a donde quieres. Por eso me planteé escribir una aplicación Perl que me permita extraer los enlaces de una página web, para luego "aislar" específicamente los que me interesan. Para comenzar escribí lo siguiente:

use strict;
use warnings;
use LWP::Simple;
use HTML::SimpleLinkExtor;

my ($html,$extor,@all_links,$file);
$file="/home/turcga/prueba.html";
$html=("http://www.seriesyonkis.com/");
getstore ($html,$file); ...

Hola.

Necesito generar strings a partir de ciertos caracteres, pero no aleatoriamente, sino una combinación tras otra siguiendo el orden predefinido de los caracteres, hasta completar todas las posibles combinaciones.

Como no sé si me he explicado bien voy a intentar hacerlo con un ejemplo:

Tengo los siguientes caracteres

Code: Seleccionar todo

abc

Strings generadas a partir de los caracteres
Strings de 1 carácter de longitud
a
b
c
Strings de 2 caracteres de longitud
aa
ab
ac ...

Hola.

Tengo una duda porque quiero sacar cierta frase en una etiqueta font.
El problema es que quiero siempre usar los '"' porque no quiero usar comillas simples "'".
¿No hay alguna forma de reparar mi código para hacer lo que quiero?

$code = "<font color="red">ssd</font>";
if ($code=~/<font color="red">(.*)</font>/ig) {
print "$1\n";
}