Foro - Perl en Español

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?

Conferencias sobre Perl, los próximos días 31/1 y 1/2.

• Pista Lenguajes:
  
  • Get ready to party! (Larry Wall)
    The last pieces are finally falling into place. After years of design and implementation, 2015 will be the year that Perl 6 officially launches for production use.
    
    In this talk, the creator of Perl reflects on the history of the effort, how the team got some things right, and how it learned from its ...

Bueno, sé que la comunidad de usuarios de Linux no les gusta mucho el entorno de Windows / Microsoft, pero ya sea por Perl pido que voten para que Microsoft dé soporte para Perl en sus productos Visual Studio. Para mi siempre fue más fácil desarrollar Perl en Windows y para otros sera Linux.

Pero sea donde sea es Perl. He visto SDK para Azure en PHP, Python y hasta en Ruby, pero nada en ...

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