Foro - Perl en Español

Saludos cordiales,

Espero puedan ayudarme con este problemita que me tiene dando vueltas la cabeza:

He estado intentando insertar una línea cada vez que pasen 10 líneas en un archivo de texto.
Lo único que pude hacer es insertar una línea después de cada línea. Ejemplo:
#!/usr/bin/perl

open $FH,"<mp31.lst" or die $!;
$flag=0;
while(<$FH>){
print;

{
print "/home/mp3";
print "psi.mp3\n";
$flag=0;
}
}
close $FH;


¿Cómo puedo hacer que imprima pero solo cada ...

Hola a todos. Soy nuevo en esto de Perl :oops:

Necesito desarrollar un script web que al ejecutarlo redireccione inmediatamente a otra página y treinta segundos más tarde envíe un correo electrónico.

¿Alguien podría ayudarme?

Muchas gracias.
rogerp003

Buenas, me he registrado hace un ratito y ya tengo un problemilla: quiero hacer un cgi que te pida nombre de usuario y contraseña y luego mande estos datos a otro cgi. De momento tengo el formulario que te pide los datos y te los muestra en pantalla, ¿qué debo hacer para mandarlo a otro cgi? ¿Y luego para que el otro cgi los reciba?

El cgi es simplemente esto:
#!/usr/bin/perl
#
use CGI ...

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.


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