Foro - Perl en Español

Hola, buenas tardes.

Tengo el siguiente problema, el cual me pregunto si con Perl puedo solucionarlo.

demo.jpg/png tamaño 95x33 píxeles | FONDO BLANCO Letra HOLA y (. ) COLOR negro
-------------------------
| . . . . . . |
| HOLA . . . |
| . . |
| . . |
-------------------------

ESTA Es una imagen en cualquier formato jpg o png.

El procedimiento que quiero realizar es:
+ obtener el tipo de ...

Hola, compañeros Perleros, nuevamente molestando, :lol:

Quiero pedir su ayuda ya que no he podido dar con la solución. Les platico un poco la problemática: Tengo una interfaz donde cargo un archivo XML y lo valido, y después lo guardo en una tabla en una base de datos Firebird. Todo lo guarda correctamente menos el xml completo.

El problema es que no sé si no estoy leyendo ...

Hola de nuevo, tras largo tiempo.

Estoy intentando leer varias URL, de red interna, que requieren autenticación con usuario/contraseña. El objetivo es leer el código retornado e interpretarlo en busca de ciertos valores.

Caso 1: Este funciona correctamente.
use LWP::UserAgent;
$ua = new LWP::UserAgent;
my $req = HTTP::Headers->new;

$req = HTTP::Request->new(GET => 'http://172.22.1.142/accessos/accessos.html');
$req->authorization_basic('miusuario', 'mipassword');
print "Content-type: text/html\
\
";
my $response = $ua->request($req);
print "Response Code: " . $response->code . "\n";
print "Response Content: ...

Buenas tardes amigos perlianos:

Tengo un inconveniente. Al desarrollar un pequeño software, el cual lee desde una carpeta archivos .txt, en los cuales hay una sola línea:

$data = '511196|2015/06/14 01:51:36|1.5|7|5.8|40|0|CAMPO2';

éste me debe guardar en una base de datos. El contenido de los .txt está separado por '|' (barra vertical, ASCII 124), pero por alguna razón al aplicar:

@trama = split("|", $data);

No reconoce la bendita barra, es decir, no lo separa, lo toma ...

Saludos, buenas tardes.

Por favor, si pueden ayudarme. Tengo una imagen en formatos jpg y png de tamaños 60 x 50 píxeles
de fondo blanco y letras rojas.

Mi pregunta es cómo puedo obtener el valor RGB de un píxel y recorrer u obtener los valores de cada píxel en su equivalente a RGB.

¿Cómo puedo recorrer la imagen píxel a píxel y ir mostrando sus valores de cada píxel?

Hice la prueba hasta con cpanm, y nada, no hay forma de que este módulo se deje instalar en el servidor. Envío adjunto la imagen de lo que tengo.

Buenas tardes. He conseguido que mi programa lea de tres en tres una secuencia y otro programa que me encuentre la secuencia ATG y me diga dónde está.

Ahora estoy tratando de que dada una secuencia, me encuentre la secuencia ATG y cuente de tres en tres a partir de ATG.

#!/usr/bin/perl
$secuencia = 'AAAATGCGGTTATGCCCATGGGTAAGTG';
$indica_orf = 0; #Indicada cuando encuentra un orf
$orf = "";
my @var = (); #La usamos para guardar los ...

Buenas.

Estoy tratando de cortar una secuencia por la mitad y que ambas mitades me la guarde cada una en una variable distinta.

Para ellos he probado con la variable chop() pero no consigo guardar ambas mitades.

El caso es que meto variables pero no consigo el fin.

#!/usr/bin/perl

my $secuencia = 'AAATTTGGGTGTAATTGGGCCCGT';
my $secuencia =~ s/\s//g;
my $longitud = length($secuencia);

my $long = $longitud/2;
print "La longitud de la cadena es $longitud y el ...

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