Foro - Perl en Español

Buenas, tengo una consulta respecto a los modificadores.
Quiero saber si los conceptos que tengo son los correctos:

/s single line, permite que el . reconozca el /n y trata todo como una sola línea. A la primera ocurrencia que encuentra, frena.

/m busca en todas las líneas, pasando por arriba los /n y a la primera ocurrencia que encuentra, frena.

/g ¿busca globalmente en una variable? ¿o en toda la entrada? y no frena ...

Hola a todos,

Estoy atascado en un problema muy simple pero no consigo solucionarlo. El caso es que estoy intentando hacer una select y no me devuelve ningún resultado. Me he asegurado que la select está bien probándola anteriormente en la BBDD.
use strict;
use warnings;
use diagnostics;
use DBI;
use ConnectDB;


my $ip=99.999.999.99;

my($dbh,$sth);
$dbh = ConnectDB->connect();

$sth = $dbh->prepare('SELECT attemps FROM blacklist WHERE ip = ?') or die("Couldn't prepare statement: " . ...

Hola.

Ando queriendo hacer un sencillo script en Perl que tome el código HTML que le devuelva una página para luego poder separar todas las palabras pero no lo que está en el código HTML.

La idea sería
use LWP::Simple;

$contenido = get("http://127.0.0.1/texto.html");


¿Alguien sabe cómo ayudarme?

Hola amigos del foro:

Quisiera saber alguna función para convertir de texto a hexadecimal y también de texto a ASCII:

En una variable tendría el texto y luego, ¿cómo lo haría?:

$texto="hola";
print $texto." en hex es ".$codificado; # 686f6c61

símbolo "a" = 97 de ASCII

$texto="hola";
print $texto." en ascii es ".$codificado; # 104,111,108,97

Saludos

Tengo una aplicación cliente servidor con IO::Socket. La conexión se cierra si cada 600 segundos (10 min) no se recibe ningún dato desde el cliente al servidor.

¿Cómo puedo saber si el servidor ha recibido o no algún comando desde el cliente antes de llegar al límite de tiempo de conexión, para enviar automáticamente cualquier cosa y mantener la conexión abierta todo el tiempo que desee?

En este tiempo de inactividad, deseo enviar cada 5 ...

Hola,

Estoy haciendo un script para contar la aparición de una lista de caracteres sobre uno o más bloques más grandes.

A continuación coloco un fragmento del archivo que contiene mi lista de caracteres a buscar:
AA
AT
AG
AC
TA
TT
TC
TG
GA
GT
GG
GC
CA
CT
CG
CC
AAAA
AAAT
AAAC
AAAG
TTTA
TTTT
TTTC
TTTG

Y este es un fragmento del bloque sobre el cual se realiza la búsqueda (pueden ...

Hola.


Quería preguntar si alguien conoce alguna manera de conectarse a un puerto mediante sockets, lo que pasa es que solo quiero que lo verifique por 0.1 segundos para no estar esperando que el socket tarde en responder y así ver otros puertos.

¿Alguien me podría ayudar?

Hola.

Desde CPAN encuentro un módulo que me interesa instalar: Mail::Mailer.

¿¿Cómo hago para instalarlo con Perl Package Manager versión 4.06 (versión gráfica) bajo Windows XP o Windows 7??

¡¡No sé si se puede hacer de forma directa o tengo primeramente que descargar el fichero .pm correspondiente y luego hacer alguna cosa más desde PPM!!

¡¡¡Saludos!!!

Hola, estoy probando un script en Perl para enviar un email.
De momento he programado esto:

#!C:perlbinperl.exe -w
use strict;
use Mail::Sendmail;

# Creamos el hash con nuestro mensajes
my %mail = (
To => 'Para [email protected],
From => 'De [email protected],
Subject => 'Prueba de Mensaje',
Message => 'Hola, esto es una prueba',
#he quitado la variable Smtp
);

# Envíar el mensaje
unless (sendmail(%mail))
{
# Error!
print "ERROR \n";
exit(1);
}

# ...

Creo que es algo absurdo (como mi nivel de Perl) pero el siguiente código ¿por qué "dispara" números de este tipo: 8.00000000002417e+15 cuando la longitud de los dígitos es 16 y cuando es menor lo hace correctamente?

El bucle es solo a modo de ejemplo:

for ($i=8000000000000000;$i != 9000000000000000;$i++)
{
print "$i\n";
}


Necesitaría que la salida fuera con la longitud correcta para mi propósito.

No sé si influye el SO pero estoy en ...