Foro - Perl en Español

Saludos amigos:

No sé si esta pregunta está bien situada o me tendría que ir a básico, pero allá va:

Estoy realizando una serie de scripts en Perl en los que ciertos datos (como el nombre de directorios, nombre de otros ficheros que se usan, el path, etc...) se leen de un fichero de configuración.

Me gustaría saber si hay alguna manera de leerlo como se haría en un Shell Script con el .bash_profile, usando ...

El día 14 de mayo de 2008, la Fundación Perl recibió una donación filantrópica de $200.000 de Ian Hague. El sr. Hague es cofundador de Firebird Management LLC, una compañía de gestión de fondos financieros con sede en la ciudad de Nueva York. Esta donación es el resultado de unos extensos debates entre el sr. Hague, la Fundación Perl y un miembro de la comunidad que desea permanecer en el anonimato.

El propósito de la ...

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