Foro - Perl en Español

Un simple script para escanear un archivo mediante el API de virustotal.com La idea se me ocurrió cuando vi este script en Python hecho por Sanko del foro Underc0de.

Una imagen :



#!usr/bin/perl
#VirusTotal Scanner 0.1
#Coded By Doddy H
#ppm install http://www.bribes.org/perl/ppm/JSON.ppd
#ppm install http://trouchelle.com/ppm/Digest-MD5-File.ppd
#ppm install http://www.bribes.org/perl/ppm/Crypt-SSLeay.ppd
#ppm install ...

Buenos días.

Hola, antes que nada les mando un cordial saludo y agradecida porque hasta el momento el foro ha sido de mucha ayuda.
Sin embargo estoy tratando de hacer un script en Perl para ingresar a un servidor y una vez dentro de esa misma sesión "ssh" verificar las instancias que posee él mismo.

Para ingresar al servidor que posee clave, utilicé este script:

#!/usr/bin/perl

use Net::SSH::Perl;
use strict;
use warnings;
use Net::Ping;

my ...

¡Hola! ¡Se me ha presentado una duda!

Este es un programa ejemplo, me gustaría saber, si quiero enviar más de un parámetro para la consulta en SQL, ¿cómo lo envío :?: Y me gustaría saber si tiene un límite de parámetros por consulta :?:

$sql_update = qq { UPDATE database.table
SET column = 'UPDATE!'
WHERE id = ?
}; ...

¡Buenas!
Quisiera saber si hay alguna forma de introducir el símbolo matemático que representa el infinito, en Perl.
Gracias

No conozco mucho sobre este módulo para extraer sus datos y verlos el código que tengo es así :

#!usr/bin/perl
#ppm install http://www.bribes.org/perl/ppm/JSON.ppd
#ppm install http://trouchelle.com/ppm/Digest-MD5-File.ppd
#ppm install http://www.bribes.org/perl/ppm/Crypt-SSLeay.ppd

use JSON;
use Digest::MD5::File qw(file_md5_hex);

use LWP::UserAgent;

my $nave = LWP::UserAgent->new;
$nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12");
$nave->timeout(5);

my $api_key = "mikey"; #Your API ...

¿ Cuál les parece mejor para programar ?

Querría saber el código óptimo para realizar una encuesta en Perl. La tenemos realizada, pero nos parecen demasiadas líneas y queríamos ver la manera más óptima. La encuesta consiste en una batería de preguntas a las que se responderá sí y no mediante y , y dependiendo de si la respuesta sea positiva o negativa se pasará a una siguiente pregunta que dependerá de la primera. Así, si a una pregunta que se interesa ...

Mi problema resulta al descargar un programa para alineamientos el cual es un binario de UNIX, me descarga un archivo .tgz al descomprimir aparecen cuatro archivos ejecutables de UNIX al tratar de abrirlos en la terminal 2 de ellos indican (cannot execute binary file), el tercero (SX_i386
Reason: image not found
Trace/BPT trap: 5) y finalmente uno me muestra en parte lo que quiero del programa pero de inmediato marca logout sin permitirme seleccionar la ...

Estoy intentando sacar el hash md5 de un archivo mediante el módulo Digest::MD5::File con el siguiente código :

use Digest::MD5::File qw( file_md5_hex );

my $md5 = file_md5_hex("api.txt");

print $md5;


y devuelve :

Filehandle STDOUT reopened as only for input at C:/Perl/site/lib/Digest/MD5/File.pm line 53, <DATA> line 461.

¿ Alguien me puede decir qué hice mal ?

«Ahora mismo cualquiera tiene delante una máquina multinúcleo (en Linux comprueba /proc/cpuinfo) y con ella podremos acelerar significativamente nuestras búsquedas con BLAST si se cumple una condición:

La memoria RAM de tu hardware debe superar con creces el tamaño de la base de secuencias que queremos rastrear.

Si esta condición se cumple en tu caso, sigue leyendo. El siguiente código Perl, con ayuda del módulo Parallel-ForkManager, te permitirá exprimir tú máquina, partiendo el problema inicial ...