ya pude hacer la incerción pero a hora me topo con el sig problema,,,
necesito leer la base de datos listo
necesito guardar lo leido en un .da listo
mover este archivo a otra carpeta,, listo
pero a hora nesecito, leer ese archivo .da con la nueva info que se va a estar extrañendo ( por medio de un cron) y determinar si es = o diferente,
Si es = de queda el archivo tal cual. si es diferente, manda una alarma, ( no sobre escribe ese archivo .da, si no que crea otro)
( algo asi como un if, que dice, ok se creo un archivo = X1 pasa 1 minuto y se vuelve a crear otro archivo = X2 y se activa el if, si x1 = X2 , " el texto interno" no hace nada puesto q es =, pasa otro minuto se crea, ( o mas bien se lee) otro archivo X3 nuevamente se activa el if, pero en esta ocación X1 es diferente de X3, si esto pasa se crea un archivo Y2 y el sistema manda una alarma, pero no se borra X1)
este es mi codigo
Using perl Syntax Highlighting
#Realizamos la etapa de preparación de la sentencia
my $sth = $dbh->prepare("SELECT idups,nombre,idsitio,ip,vendor,snmpro,modelo,estado,host,idcliente,usuario,password,fecha_add,fecha_kill,umbral_carga,trespaldo FROM ups;");
#Realizamos la etapa de ejecución de la sentencia
$sth->execute();
#------------------------------
#Realizamos la etapa de extracción de datos. Imprimimos dato a dato.
while ( @tupla=$sth->fetchrow_array())
{
my $s = @tupla [0
];
my $s1 =@tupla [1
];
my $s2 =@tupla [2
];
my $s3 =@tupla [3
];
my $s4 =@tupla [4
];
my $s5 =@tupla [5
];
my $s6 =@tupla [6
];
#Para separar por : y guardar en una sola variable
my $s7 ="$s:$s1:$s2:$s3:$s4:$s5:$s6";
print "--------------\n";
print "$s7\n";
open (Dat
,">>$tabla.dat");
print Dat
"$s7\n$h";
close(Dat
);
#-----------------------------------------------------------------
my $file;
open my $file, '<', "tabla.dat" or die("No se pudo abrir archivo");
my $texto = do { local $/; <$file> };
close $file;
print "-------------------------------------\n";
print $texto;Coloreado en 0.002 segundos, usando
GeSHi 1.0.8.4
En la parte de leer el archivo es donde tengo problemas mas que nada para hacer las comparaciones de texto,, ( recordando que en el .dat la info se ve asi)
1:APODACA:1:172.26.2.127:Unico
2:APODACA:1:172.26.2.127:Unico
por Kiloko » 2007-08-29 18:03 @794 
