Foro - Perl en Español

Hola.

Me estoy iniciando en Perl y quiero filtrar algunas líneas de una salida, esto es: un resumen, puesto que la salida es más larga.
A3/APT "M#DEL5R 711BIPA" 288 150128 1113
RADIO X-CEIVER ADMINISTRATIN
TRANSCEIVER GROUP FAULT

MO RSITE ALARM SLOGAN
RXOTG-321 00083#COLLAD#D BTS INTERNAL



A3/APT "M#DEL5R 711BIPA" 291 150128 1119
DIGITAL PATH FAULT SUPERVISION

DIP DIPEND FAULT SECTION HG DATE TIME
RBLT118 RDI 150128 111915
Quiero: La primera línea que coincida con RXOTG-321.

Este ...

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.