• Publicidad

Fecha actual 2026-03-15 22:45 @989

News News of Foro - Perl en Español

Site map of Foro - Perl en Español » Foro : Foro - Perl en Español

La comunidad de programadores en Perl de habla-hispana.

Leer archivos ooxml

Hola de nuevo a todos.

Esta vez me gustaría saber si alguien ha entrado en la aventura de leer un documento ooxml de Excel. Yo lo estoy intentando con unas librerías que encontré en un post (Archive::Zip y XML::Twig).

Leyendo por ahí encontré que si se renombra un archivo .xlsx a .zip obtienes una estructura de archivos y es por eso lo de la librería para archivos zip.

Gracias de antemano.
Read more : Leer archivos ooxml | Vistas : 2791 | Respuestas : 8 | Foro : Intermedio


PDF::API2 Barcode

Agradecería muchísimo si me pudiesen ayudar en lo siguiente: Estoy trabajando con el modulo PDF::API2 y necesito insertar en el documento un código de barras. En CPAN la explicación de este tipo de inserciones es casi nula:

$bc = $pdf->xo_2of5int %opts
$bc = $pdf->xo_3of9 %opts

Suponiendo que tenga el número a convertir a código de barras y el tipo de código a utilizar, ¿cómo hago la inserción?

¡¡¡¡¡Muchas gracias!!!!! ...
Read more : PDF::API2 Barcode | Vistas : 1972 | Respuestas : 2 | Foro : Módulos


Conexión SSH a switch

Buenas tardes,

resulta que necesito realizar una conexión por SSH y he intentado hacerlo de todas las formas y no me ha funcionado. La idea es conectarme a un switch pero no he podido. Con la conexión telnet sí me ha funcionado, como lo muestro a continuación.

use Net::Telnet;
use Sys::Hostname;

system("cls");
$telnet = new Net::Telnet ( Timeout=>10, Errmode=>'die');
$telnet->open ('172.30.96.19');
$telnet->waitfor('/Username:/i');
$telnet->print('admin');
$telnet->waitfor('/password:/i');
$telnet->print('*********');
$telnet->waitfor('/\login/i');
$telnet->print('tftp 172.30.100.5 put 3comoscfg.cfg BkGY_172_30_96_19.txt');
sleep(10);
$telnet->print ('exit'); ...
Read more : Conexión SSH a switch | Vistas : 3961 | Respuestas : 5 | Foro : Intermedio


Seguridad y Redes: Ficheros pcap con AfterGlow

«En esta ocasión, vamos a estudiar una herramienta para la visualización gráfica de capturas de red usando cualquier ficheros .pcap generado por cualquiera de nuestros sniffer como pueden ser Tshark, TCPDump, Windump, etc . Esta Herramienta es AfterGlow.

AfterGlow es una herramienta formada por una serie de scripts de Perl que nos facilita la generación de gráficas a partir de, por ejemplo, un fichero de captura .pcap. Para ello necesitamos tener GraphViz (lo vimos en ...
Read more : Seguridad y Redes: Ficheros pcap con AfterGlow | Vistas : 593 | Respuestas : 0 | Foro : Pasando el rato


Problema líbreria DBI

Hola, tuve un problema con el ordenador y al reinstalar no me funciona la librería DBI. La he intentado reinstalar varias veces pero no hay manera, siempre me acaba saliendo el mismo error. Espero que podáis ayudarme.

Simplemente con el código use DBI; ya salta el siguiente error:
DBI object version 1.609 does not match $DBI::VERSION 1.611 at D:/xampp/xampp/perl/lib/DynaLoader.pm
line 223.
BEGIN failed--compilation aborted at D:/xampp/xampp/perl/lib/DBI.pm line 265.
Compilation failed in require at D:\Users\All Users\Documents\scripts_perl\prueba.pl ...
Read more : Problema líbreria DBI | Vistas : 667 | Respuestas : 2 | Foro : Básico


Mostrar imagen dinámica al hacer OnClick

Hola amigos. Estoy con la API de Google Maps intentando que al hacer clic en uno de los puntos que cojo de la base de datos para mostrar la foto que tengo asignada a ese punto en otro div fuera del mapa.

Todo lo que es el código del mapa funciona bien, pero he intentado de muchas formas hacerlo y no doy con el quid. Haber si me podéis echar una mano en el planteamiento, ...
Read more : Mostrar imagen dinámica al hacer OnClick | Vistas : 3356 | Respuestas : 0 | Foro : JavaScript


Net::DNS:Resolver

Hola. Necesito hacer un ping a un host, pero debo verificar que el host sea válido... Este es el código que tengo y no puedo encontrar el error gracias...

sub monitor{
my $host = $_;
my $count = $_;
my $dirTxt = $_;
my $ping;
my $fecha;
my $verFqn = Net::DNS::Resolver->new;
print "<br>aqui estoy</br>\n";
if ($verFqn->query($host)){

$ping = qx(/sbin/ping -c$count $host);
$fecha = qx(date +_%Y-%m-%d_%H:%M.txt);

open(texto, ">$dirTxt/$host$fecha");
print texto $ping;
close(texto);

print "existe el host"; ...
Read more : Net::DNS:Resolver | Vistas : 486 | Respuestas : 1 | Foro : Básico


Re: Editar un archivo xls

Bienvenido a los foros de Perl en Español, LnxHg.

Con el módulo Spreadsheet::WriteExcel puedes definir rangos de celdas combinadas con la función merge_range().
Read more : Re: Editar un archivo xls | Vistas : 1739 | Respuestas : 2 | Foro : Intermedio


Ping en Perl

¿Cómo puedo hacer un ping en Perl, que dé una salida como la que da shell, lo que quiero es gueardar esta salida en un archivo de texto?

¿Còmo se pueden ejecutar comandos shell en Perl?

ping -c5 www.google.com
PING www.l.google.com (72.14.253.104): 56 data bytes
64 bytes from 72.14.253.104: icmp_seq=0 ttl=53 time=114.009 ms
64 bytes from 72.14.253.104: icmp_seq=1 ttl=53 time=108.580 ms
64 bytes from 72.14.253.104: icmp_seq=2 ttl=53 time=112.932 ms
64 bytes from 72.14.253.104: icmp_seq=3 ttl=53 ...
Read more : Ping en Perl | Vistas : 1559 | Respuestas : 4 | Foro : Básico


Leer el último elemento de una frase del fichero

Hola de nuevo, ya estoy aquí a la carga otra vez. :roll:

Veamos, tengo un fichero con un montón de datos (el que tengo que importar a un MySQL), y quiero que no sea sólo para ese fichero sino para todos y así generalizar un poco el código. El fichero, son datos sobre investigaciones científicas y cuando el dato no ha sido posible sacarlo, lo señalan ...
Read more : Leer el último elemento de una frase del fichero | Vistas : 4123 | Respuestas : 33 | Foro : Básico


 

Identificarte  •  Registrarse


Estadísticas

Mensajes totales 36895 • Temas totales 7436 • Usuarios totales 1983

cron