Foro - Perl en Español

Necesito si alguien me ayuda con un script para interpolar datos wafs bajados del gfs.
Necesito hacerlo desde Perl. Si alguien sabe algo, por favor, responda. Gracias.

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

Buen día, compañeros perleros, tengo un problema y me gustaría saber su opinión: tengo un pequeño script que corre dentro de un equipo Solaris con versión 5.005_03.

Lo que hace o debería de hacer este script es consultar la base de datos (de este equipo) y sacar información. Pero por la versión instalada no es posible. Me pide tenga el DBI; para esto existe una nueva versión, la 1.604, pero no es compatible con Perl ...

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 :)

Hola a todos.

Tengo una duda sobre el uso de sed.

Quiero modificar una línea de un fichero; dicha línea tiene la palabra "leftcert=loquesea" y quiero cambiar la línea entera por "leftcert=otracosa".

He intentado lo siguiente pero no funciona así:

Code: Seleccionar todo

cat fichero | sed 's/leftcert*/leftcert=$myVariable/g' > fichero

¿Alguien me puede echar una mano?

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