Foro - Perl en Español

Amigos, estoy intentando crear un script que me reciba un string suministrado por otro script en otra máquina. Para el script receptor he colocado el siguiente código tomado de un ejemplo de aquí:
#!/usr/bin/perl -w

use IO::Socket;
use Net::hostent;

$server=IO::Socket::INET->new(Proto=>'tcp',LocalPort=>5800,Listen=>1,Reuse=>1);
print "server=$server\n";

die "no puede configurar servidor" unless $server;
print "Server $0 aceptando clientes";

while($cliente=$server->accept()){
$cliente->autoflush(1);
print "cliente=$cliente";
while(defined($line=<$cliente>)){
print $cliente $line
}
close $cliente;
}

Al ejecutarlo mediante perl p2.pl en la consola solo ...

Amigos, saludos

Estoy modificando el proyecto vncserver para la toma de control de máquina a distancia.

Ya logré modificar el proyecto para que suministre el tiempo que se tuvo control de la máquina a distancia.

Ahora estoy tratando de hacer un script en Perl que reciba un string de la máquina remota. A través del puerto 5800. La información es enviada a través de un programa en Java. El cual ya realicé pero requiero ayuda ...

Hola a todos, perleros.

Mi pregunta es la siguiente:
¿Para qué sirve cuando tengo, por ejemplo un tag de imagen html y en el evento onClick llamo a una funcion anteponiendo esto: "javascript:"?

Ejemplo: <img onClick="javascript:miFuncion();">

Estuve buscando pero no encontré nada al respecto. Saludos.

Hola amigos,

Acabo de hacer un programa muy cortito que abre un buzón POP3 y guarda todos los mensajes en un archivo de texto.

Lo he hecho siguiendo el tutorial de este sitio web, porque soy un principiante total en perl.

El problema que tengo ahora es que en el archivo de texto que he creado sólo puedo leer bien las cabeceras de los mensajes, ya que el contenido del mensaje está cifrado.

¿Cómo puedo ...

Agradecería si me pudiesen indicar donde esta el error en esta división.

¿Perl admite división por CERO?

my $resultado = ( $variable_1 * $variable_VALOR_CERO) / $variable_2

Es decir, obtendría resultado CERO, pero me tira error, ¿tengo que usar alguna función matemática?

Muchas gracias.

Que tal de nuevo requiriendo de su valiosa intervención.

¿Cómo puedo quitarle el acento a una cadena de texto? Aquí pongo un ejemplo.
my $nombre = "Martín González Gómes";

Quisiera que quedara así:
$nombre = "Martin Gonzalez Gomez";

¿Habrá alguna manera de sustituir la vocal acentuada por la vocal sin acento?

Buenas,

¿Alguien sabe cómo hacer para que cuando un script te pida tu contraseña se muestren asteriscos en vez de ésta?

¡¡Gracias!!

Se acaba de abrir un nuevo subforo en los foros de Perl en Español llamado Bolsa de Trabajo:
viewforum.php?f=27

Aquí se deberán de poner todas las ofertas de trabajo, tanto las que sean para buscar programadores, como la de programadores ofreciendo sus servicios.

Saludos

Hola a todos,

Tengo un problema para poder filtrar por llaves de un hash, espero poder expresar bien mi duda.

Estos son los datos del archivo alumnos.dat (IDSALON, IDGRADO, IDALUMNO, NOLISTA, NOMBRE)

1=A=6=14=Juan Perez
1=B=12=9=Carlos Buenrostro
1=C=24=33=Maria de las Nieves
2=A=19=22=Adalberto Madero
2=B=31=14=Maria Felix
3=A=27=11=Guadalupe Victoria

y este es el código en Perl
#!/usr/bin/perl -w
#

use strict;
use Lib::DB::DBFile;
use Lib::DB::DBConnect;

my(%filtalumnos,%db_data,@alumnos,$alumnos, $dbh,$sth);
my $DBFile = new Lib::DBFile::DBFile;
my $qry = qq/select IDSALON, IDGRADO, ...

¡Hola!

Antes de publicar este mensaje he estado buscando en el foro y no he encontrado respuesta a mi pregunta. Si ya está respondida os agradeceré que me digáis dónde.

Necesito saber el día de la semana de una fecha determinada. Ahora mismo, utilizo:

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();
$mon = $mon+1;
$year = $year+1900;

Lo que me da correctamente el día de la semana actual, pero no sé cómo obtener ese mismo valor en $wday para ...