Foro - Perl en Español

«El módulo de Perl MIME::Base64 proporciona funciones para codificar y descodificar cadenas en y desde base64.»

Artículo

«En el caso de que un script en Perl requiera que el usuario introduzca por STDIN un password lo recomendable es que el texto que el usuario escriba no se muestre por pantalla. Para ello Perl cuenta con el módulo Term::ReadKey;.»

Artículo

Hola. Se me está dificultando el tema del uso de JSON en Delphi por lo que tengo que recurrir a mi última chance hacerlo a mano, hacer como 15 expresiones regulares diferentes, pero me di cuenta de que el resultado JSON deja un patrón no tan difícil. El resultado es este:

{"scans": {"eSafe": {"detected": false, "version": "-", "result": null, "update": "-"}, "McAfeeBeta": {"detected": false, "version": "-", "result": null, "update": "-"}, "CAT-QuickHeal": {"detected": true, "version": "-", ...

Estimados,

Estoy programando un cliente para un webservice muy simple. uso las librerías SOAP::Lite.
El webservice recibe la cadena que envío y me responde la cadena más un literal.
Si la cadena es NULL me responde: "error; cadena vacía".

El problema que tengo es que siempre que le mando un dato, me responde que la cadena esta vacía.

Les adjunto el código, el esquema del webservice, y la salida.

¿Me pueden decir qué estoy haciendo ...

Acudo nuevamente debido a que ya agoté todas mis posibilidades (Googlear hasta casi morir), tengo lo siguiente en una línea:
$string='TEXTO ANTES DE LO QUE NECESITO CAMBIAR +chr(13)+ Y AQUÍ PUEDE IR O NO TEXTO.'
Eso necesito cambiarlo por +chr(13)+ encerrado entre comillas simples.
$string='TEXTO ANTES DE LO QUE NECESITO CAMBIAR '+chr(13)+' Y AQUÍ PUEDE IR O NO TEXTO.'
Desarrollé la siguiente exp. reg. que sí me encuentra el +chr(13)+ (supongo que está ...

Hola, estoy queriendo hacer una expresión regular en Perl para extraer todos los enlaces porque la voy a usar en Delphi y no puedo usar HTML::LinkExtor que tiene Perl al regalarme todos los enlaces.

Había hecho algo así:
if($code=~/http\:\/\/(.*?)\//) {
print "http://".$1;
}


Pero mi exp. reg. no ayudó en mucho con el tema de los espacios. ¿ Alguien me podría ayudar ?

Buenas, compañeros. :D Abro este hilo con motivo de consulta.

Resulta que cuento con un script que procesa unos productos y en base a ellos devuelve unas estadísticas (numeritos) finales. Numeritos los cuales deseo tomar desde otro script para simplemente embeberlo en unas tablas y sean más lindos a la vista que por terminal :shock: , puesto que ...

Hola, tengo una duda...

La situación es que no puede hacer un cgi que se descarge un archivo ZIP.
Básicamente lo que deseo es que un archivo en el servidor llamado:

Miarchivo.abc

que en realidad es un archivo "programa.zip"... sea mandado como tal...

Uso lo siguiente
#!/usr/bin/perl

print "content-type: application/zip\n\n";
open Archivo, "Miarchivo.abc";
while (<Archivo>){
Print;
}
close Archivo;
El navegador sí despliega la ventana de descargar archivo, pero manda un archivo de longitud ...

Hola, tengo un problema, quizás muy básico, pero que no consigo resolver. Y estaba pensando que seguro que existe algún módulo para resolverlo fácilmente.

El problema es el siguiente. Tengo varias líneas con elementos separados por tabuladores:
X Y Z W
X1 Y1 Z1 W1
X2 Z2 W2
X3 Y2 Z3
X2 Z4 W2
X2 Z4 W3

Los ficheros tienen varios megas, pero tienen el formato que muestro en el ejemplo. A veces no se ...

Aunque está la noticia en alemán, hay un vídeo donde se puede ver el juego.