Foro - Perl en Español

Saludos a todos.

En esta ocasión tengo un problema para obtener el código que muestra una página.

Al llamar por GET a http://websms.nuevatel.com/new_img.php este me genera un token aleatorio, pero no puedo extraerlo.

Mi código:
#!/usr/bin/perl -l

use strict;
use warnings;

use LWP::UserAgent;
use HTTP::Cookies;
use HTTP::Request;
my $http = LWP::UserAgent->new();
$http->cookie_jar($cookies);
$http->timeout(20);
$http->agent("Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)");
my $u = "http://websms.nuevatel.com/new_img.php";
my $p = $http->get($u); ...

Intento dejar un proceso en background, pero al cerrar el terminal mata el proceso.

Uso: if (fork()) { exit; } para dejarlo en 'segundo plano' presionando CTRL + C, pero no funciona. ¿Está bien así?

Buenas. Dada una secuencia he buscado si posee el codón ATG de inicio con los códigos:

#!/usr/bin/perl

$ secuencia = AAAATGCGGTTATGCCCATGGGGTG;
$ s = 'ATG';

$posicon = 0;
$n = 0;
$n++ while $posicion = 1 + index($secuencia, $s, $posicion);

print "SE HAN ENCONTRADO $n VECES ESTE STRING ($s) EN LA SECUENCIA.\n";


exit;

Y me muestra el número de veces que tengo la secuencia ATG.

A continuación quisiera que me mostrase en el lugar que ...

Hola. Bueno, tengo el siguiente problema por si alguien puede ayudarme.

Paso a detallar (datos falseados).

Tengo la siguiente URL: https://abcdef.com/pagina.aspx

Al hacer GET, mi código es 200 OK, y las cabeceras de respuesta son:

https://abcdef.com/pagina.aspx
GET pagina.aspx HTTP/1.1
Host: abcdef.com
User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64; rv:34.0) Gecko/20100101 Firefox/34.0
Accept: text/css,*/*;q=0.1
Accept-Language: en-US,en;q=0.5
Accept-Encoding: gzip, deflate
Referer: https://abcdef.com/pagina.aspx
Cookie: ASP.NET_SessionId=1us1xo45qxwet045rw5qchis
Connection: keep-alive ...

Saludos... buenas tardes.

Mi problemas es cómo poder hacer una petición a URL como estas:

+ http://www.sdjflsdjfjdsfj.com/volpe/js/captcha.ashx
+ http://www.lsdjflsdjflsdj.com/js/captcha.ashx

El problema consiste en descargar la imagen. Si lo hacemos de forma manual se guarda en formato "PNG" (clic botón derecho, guardar imagen).

No es para una URL específica. Pongo esas dos como simples ejemplos. Yo tengo mi propia URL que genera una imagen ...

Buenas tardes.

Me conecto al servidor de correo con normalidad y puedo ver los mensajes de determinada cuenta (correo1). Lo que deseo es poder guardar los adjuntos en una carpeta determinada. Por favor, si alguien tuviera algún enlace. Abajo muestro código de conexión y lectura de correos.

#!/usr/bin/perl -w
use strict;
use Net::POP3;

my $pop = Net::POP3->new('miempresa.pe', Timeout => 10) || die "No se pudo abrir conexión: $!";

$pop->login("correo1", "pwd") or die("No se pudo hacer ...

Buenas tardes, necesito hacer un programa de Perl en el que me pida unos archivos que contienen una secuencia, las corte, las pegue, las guarde en una variable y la imprima por pantalla.

¿Alguien sería tan amable de ayudarme?

Gracias.
Un saludo.

Buenos días.

Estimados, de nuevo molestando. Tengo un script que me hace varias revisiones en una máquina Linux, pero hay un comando en especial que al enviarlo se queda colgado y para salir de ese comando hay que hacer Ctrl+C desde el teclado.

El tema es que necesito enviar este Ctrl+C de una vez desde el script Perl para evitar que tenga que ser el usuario que lo haga sino más bien lo haga el ...

Hola, gente. Tengo problemas con CPAN. Estoy buscando unos módulos que me permitan realizar una operación por ejemplo cada 30 minutos y otro que me genere números aleatorios.

Saludos.

¿Existe algún script de Perl por ahí para hacerle un datadump a todas las bases de datos MySQL que tenga el servidor y que estos me queden en un directorio ? Ojalá no fuera un módulo si no un script puro Perl.