Foro - Perl en Español

Deseo hacer un programa en Perl que al yo pulsar un botón o seleccionar un checkbox me deshabilite el teclado y ratón.

¿Cómo hago eso?

Buenas perler@s:

Se me presenta el siguiente problema: tengo una lista en .txt con muchísimos equipos, para que os hagáis una idea os he seleccionado una muestra de ésta.

Code: Seleccionar todo

(null);PC-000000;
(null);PC-000001;
(null);PC-000008;
(null);PC-001558;
(null);PC-987654654;
(null);PT-6542358;
(null);PT-9851357;
(null);PT-9873215;
(null);PT-902548;
(null);PT-865472;
(null);PT-999999;
(null);PT-002255;

La cosa es que me gustaría hacer un script que me seleccionara por ejemplo 500 líneas de éstas de forma aleatoria. ¿Cómo se podría hacer?

Gracias y saludos.

Buenas, les cuento:

Pues lo que pasa es que he estado haciendo algunas pruebas con la variable de entorno PERL5LIB. He creado un script en /tmp, llamado prueba.pm (/tmp/prueba.pm) y en el fichero .pl he puesto use prueba; . Como es obvio me lanza el típico error :

Can't locate prueba.pm in @INC (@INC contains: /etc/perl /usr/local/lib/perl/5.8.8 /usr/local/share/perl/5.8.8 /usr/lib/perl5 /usr/share/
perl5 /usr/lib/perl/5.8 /usr/share/perl/5.8 /usr/local/lib/site_perl) at prueba.pl

Ahora, segun tengo entendido, eso se solucionaría seteando la ...

Tengo un problema muy básico y se que la solución es casi para dar risa tengo un archivo con la siguiente información.

Insert into ACTIVO_PLV (fecha, idcid, idplv, disponibilidad, latencia, perdida_paq, jitter_avg, disponibilidad_remoto, throughput, clase) values(to_date('20080512000900','YYYYMMDDHH24MISS'),142113,1585,1,50.8,0,5.75,1,0,1)
Insert into ACTIVO_PLV (fecha, idcid, idplv, disponibilidad, latencia, perdida_paq, jitter_avg, disponibilidad_remoto, throughput, clase) values(to_date('20080512000900','YYYYMMDDHH24MISS'),142113,1586,1,34.2142857142857,30,8.6,1,0,2

Lo que necesito es, poner ';' al final de cada sentencia. Como podrán ver es para insertar en la base de datos.
¿Me podrían echar ...

Hola

¿Sabéis si hay alguna función de Perl que nos diga el número de líneas que tiene un fichero .txt pasado como argumento?

Por ejemplo:
$numerolineas = numero_de_lineas('fichero.txt')

Si el fichero tuviera, por ejemplo 251 líneas, la variable $numerolineas valdría 251.

Muchas gracias :)

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