Foro - Perl en Español

Gabor Szabo comienza a emitir vídeos para principiantes en Perl (en inglés).

Hola, estoy programando una expresión regular en Delphi con un componente llamado perlregex, lo que hace que puede usar expresiones regulares de Perl, había pensado en usar la clásica expresión regular así:
while($code=~/href="(.*)"/migs) {
print $1;
}
El problema es que busco extraer todos los enlaces, ya sean de imágenes u otros, no solo los de href, algo así como extraer todos sin filtro.

¿ Alguien me puede ayudar ?

Estoy integrando mi sitio con stripe, el código es sencillo y he encontrado el módulo Perl (Business::Stripe).

my $stripe = Business::Stripe->new(
-api_key => 'c6EiNIusHip8x5hkdIjtur7KNUA3TTpE'
);

$stripe->charges_create(
amount => 400,
card => 'tok_5EuIyKyCTc0f2V',
description => 'Ice cream'
) and return $stripe->success;

print $stripe->error->{message}, "\n";
Les explico: quiero modificar esto, de modo que pueda manejarlo de este modo:
IF (SUCCESS){
HAGO ALGO
}
ELSE {
DEVUELVO ERROR
}

¿Pueden ayudarme, por favor?

«Desde hace tiempo venimos usando en el laboratorio la librería kseq.h , integrante de , para las desagradecidas tareas de manipular grandes archivos en formato FASTQ. Esta librería es un único archivo .h en lenguaje C que de manera muy eficiente permite leer archivos FASTQ, y también FASTA, incluso comprimidos con GZIP, con zlib. La eficiencia es fundamental para estas aplicaciones, porque modificar archivos .fastq de varios ...

Hola a todos.

Tengo problemas con la siguiente sentencia:
print "Ejecutando el comando: snmpwalk -v 2c -c localpublic $IPDEVICE\n";

#$salidaComando=system("snmpwalk -v 2c -c localpublic $IPDEVICE | head -5");
#$salidaComando=`snmpwalk -v 2c -c localpublic $IPDEVICE | head -5 2>&1`; ##### Si uso este se queda procesando...
#print `snmpwalk -v 2c -c localpublic $IPDEVICE | head -5`;
#print "Salida: $salidaComando\n";
system "snmpwalk -v 2c -c localpublic $IPDEVICE | head -5";
print $?;
print $? >> 8; ...

Hola,

Estoy intentando hacer un script que distribuya archivos en carpetas en función del contenido del archivo. En concreto, tengo un conjunto de archivos .xml que contienen el elemento <year></year>. Dentro de este elemento puede haber cuatro opciones:
<year>1500</year>
<year>1600</year>
<year>1700</year>
<year>1800</year>
Lo que quiero es distribuir los archivos .xml en cuatro carpetas (1500, 1600, 1700, 1800) en función del contenido del elemento year. Por ejemplo, si el archivo .xml tiene el elemento <year>1500</year> ...

!Hola, compañeros Perleros!, espero que puedan ayudarme. Verán, soy nueva en este lenguaje y no sé muy bien cómo crear una imagen de una tabla html o dibujarla.

Les explico más detalladamente: tengo un script donde realizo una consulta a la base de datos y muestro el resultado en una tabla. Ahora, lo que quiero es guardar como imagen la pura tabla o lo que es el resultado. ¿Hay manera de hacer esto? Ya he ...

Buen día, para que puedan comprender la duda que tengo es necesario que les cuente una par de cosas.

Tengo un servidor en I2P y me encontraba auditando ciertas cosas, entonces hice uso de una herramienta llamada weevely (https://github.com/epinna/weevely3/blob/master/README.md).

Cuando weevely se utiliza en la clearnet sería algo así:
user@computer:~$ weevely http://myhost.com/mytool.php mypassword
Pero para hacer esto con un servidor dentro de I2P necesito conectarme al HTTP proxy ...

Hola, estoy tratando de migrar unos script de gtk2 a gtk3 pero no he logrado hacerlo completo por algunos módulos. No encuentro un módulo que reemplace a "WidgetCursor".
Me podrían ayudar a buscar la forma de ocultar el cursor con algún ejemplo ??

Sólo he encontrado esto "gtk_widget_override_cursor" de "GtkWidget" pero no logro entender la implementación con perl.

Ojalá me puedan ayudar.
Gracias.

Buenas tardes, amigos perlianos.

Mi duda es acerca de esta estructura en XML:
<data>
<meta>
<sender type="IMEI">400234062240570</sender>
<receiver type="E-mail Account">[email protected]</receiver>
<time>2015-01-10T19:52:06Z</time>
<protocol>SBD</protocol>
<type>NAL GPS Report 6</type>
</meta>
</data>

Tengo una parte de mi código en Perl que es el siguiente:
print xml join q{|},
$datos->{meta}{sender}{type},
$datos->{meta}{receiver}{type},
$datos->{meta}{time},
$datos->{meta}{protocol},
$datos->{meta}{type};
print xml "\n";
El cual me da los siguientes datos:

IMEI|E-mail Account|2015-01-10T19:52:06Z|SBD|NAL GPS Report 6

Los datos que no puedo obtener son: 400234062240570 y ...