Foro - Perl en Español

Python: Elk
Elk is an object system for Python inspired by Moose for Perl. It implements many of the features of Moose including:

• attribute delegation
• default attribute values
• lazy attribute initialisation
• read-only attributes
• required attributes
• attribute type constraints
• roles
• method modifiers

import elk


class Point(elk.Elk):
x = elk.ElkAttribute(mode='rw', type=int)
y = elk.ElkAttribute(mode='rw', type=int)

def clear(self):
self.x = 0
self.y = 0


class Point3D(Point):
z ...

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

Empieza hoy, en unas horas, a las 15:00 GMT

https://www.youtube.com/user/yapcna

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.

Perl 5.22.0 representa, aproximadamente, 12 meses de desarrollo desde Perl 5.20.0 y contiene aproximadamente 590 000 líneas de cambios a lo largo de 2400 archivos por parte de 94 autores.

Nuevas características

• Perl sabe qué métodos se han definido en una clase, y puede llamarlos más rápido
• Crea alias a partir de referencias en ambos lados de una asignación o en una variable de control
• Existen nuevos operadores de bit, para ...