Foro - Perl en Español

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

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

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

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

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

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

Buenas, soy nuevo en el foro, un saludo a todos.

Debo realizar un script para una asignatura, y al no haber tocado antes este lenguaje me encuentro con problemas muy básicos y esperaba a ver si alguien me los pudiera resolver.

El primero de ellos es que necesito realizar un fichero histórico que vaya almacenando cada orden que se le pasa al script para después poder mostrarlo, modificarlo o borrarlo, y no sé cómo puedo ...

Hola a todos.

Tengo una pregunta medio básica en C.
Quiero usar una variable de tipo entero sin importar su tamaño pero me encontré con que ¡no puedo ingresar números mayores a 300000!
Este es mi código:

#include <stdio.h>
int main(){
int num = 300000;
long num2 = 300000;
printf("Numero: %d",num); //Imprime -27680
printf("Numero2: %d",num2); //Imprime -27680

return 0;
}

¿Alguna idea?
Muchas gracias

Hola, llevo varios días estudiando casi todos los tutoriales de esta página, porque he empezado unas prácticas de empresa en un laboratorio de bioinformática y trabajan con Perl y MacOSX.

Sea como sea, me han pedido que haga un proyecto el cual requiere de conexión con MySQL, y pensé que usando XAMPP se simplificarían las cosas, pero no.

1. No logro instalar ni a través de CPAN ni descargando el fichero al ordenador el paquete ...

Hola a todos.
Uso en mi software el módulo XML::Simple para hacer la lectura de un archivo xml.
Leo un xml parecido a este:

<clientela>
<cliente>
<nombre>Filemon Pi</nombre> </cliente>
<cliente>
<nombre>Pantuflo Zapatilla</nombre></cliente>
...........
</clientela>

Con este código:
# ...
my $xml=XMLin("$Conn::clientes.xml",ForceArray => );
foreach my $cliente (@{$xml->{cliente}}{
......
# También probé:
my $clientes = XMLin("/root/txt/tutoperl2000/clientes.xml");
for( @{$clientes->{cliente}} ) {
print "$_->{nombre} => $_->{pasta} ($_->{fecha})\n";
}

El problema viene cuando este xml solo tiene ...