Using perl Syntax Highlighting
#!/usr/bin/perl
##################################################
## Variables a modificar
##################################################
$datadir = "/data";
$sqldir = "/sql";
$historicaldata = "/historico";
##################################################
&fecha;
opendir(DIRHANDLE,"$datadir");
foreach (readdir(DIRHANDLE)) {
if ($_ ne "." && $_ ne "..") {
push (@archivos, $_);
}
}
closedir DIRHANDLE;
@archivos = sort(@archivos);
foreach $archivo (@archivos) {
($fechacomp, $no) = split(/\./, $archivo);
$sqlfecha = $fechacomp;
$fechacomp =~ s/\-//g;
if ($fechacomp <= $fecha) {
#print "$fechacomp\n";
open (FILE, "<$datadir/$archivo");
flock (FILE,2);
@lista_ups = <FILE>;
close FILE;
foreach $ups (@lista_ups) {
chomp($ups);
($idrouter, $indicador_ping, $nombre,
$ip, $host, $memoria, $cpu1, $cpu5,
$temperatura, $sysuptime,$disponibilidad,$fecha)
= split(/\=/, $ups);
open (FILE, ">>$sqldir/$sqlfecha.sql");
print FILE "Insert into ACTIVO_AVA (Fecha, IdRouter, Memoria, Temp, Cpu1, Cpu5, Host, SysUpTime,disponibilidad)
values (to_date('$sqlfecha','YYYY-MM-DD-HH24-MI'),
'$idrouter','$memoria','$temperatura','$cpu1',' $cpu5','$host','$sysuptime','$disponibilidad')\;\n";
close FILE;
# system ("mv $datadir/$sqlfecha.data $historicaldata/$sqlfecha.data");
}
}
}
exit;
##################################################
## Variables a modificar
##################################################
$datadir = "/data";
$sqldir = "/sql";
$historicaldata = "/historico";
##################################################
&fecha;
opendir(DIRHANDLE,"$datadir");
foreach (readdir(DIRHANDLE)) {
if ($_ ne "." && $_ ne "..") {
push (@archivos, $_);
}
}
closedir DIRHANDLE;
@archivos = sort(@archivos);
foreach $archivo (@archivos) {
($fechacomp, $no) = split(/\./, $archivo);
$sqlfecha = $fechacomp;
$fechacomp =~ s/\-//g;
if ($fechacomp <= $fecha) {
#print "$fechacomp\n";
open (FILE, "<$datadir/$archivo");
flock (FILE,2);
@lista_ups = <FILE>;
close FILE;
foreach $ups (@lista_ups) {
chomp($ups);
($idrouter, $indicador_ping, $nombre,
$ip, $host, $memoria, $cpu1, $cpu5,
$temperatura, $sysuptime,$disponibilidad,$fecha)
= split(/\=/, $ups);
open (FILE, ">>$sqldir/$sqlfecha.sql");
print FILE "Insert into ACTIVO_AVA (Fecha, IdRouter, Memoria, Temp, Cpu1, Cpu5, Host, SysUpTime,disponibilidad)
values (to_date('$sqlfecha','YYYY-MM-DD-HH24-MI'),
'$idrouter','$memoria','$temperatura','$cpu1',' $cpu5','$host','$sysuptime','$disponibilidad')\;\n";
close FILE;
# system ("mv $datadir/$sqlfecha.data $historicaldata/$sqlfecha.data");
}
}
}
exit;
Coloreado en 0.007 segundos, usando GeSHi 1.0.8.4
El cual toma un archivo del tipo 11pfrouvip20080828154700.txt y crea un archivo sql, 11pfrouvip20080828154700.sql, con la estructura
Using sql Syntax Highlighting
INSERT INTO ACTIVO_AVA (Fecha, IdRouter, Memoria, Temp, Cpu1, Cpu5, Host, SysUpTime,disponibilidad)
VALUES (to_date('12pfrouvip20080828090200','YYYY-MM-DD-HH24-MI'),'4926','0','0','0',' 0','18','0','1');
VALUES (to_date('12pfrouvip20080828090200','YYYY-MM-DD-HH24-MI'),'4926','0','0','0',' 0','18','0','1');
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
Pero como pueden ver, está la parte 12pfrouvip que tomo de la primera parte. Mi pregunta aquí es cómo puedo eliminar esta parte para que solo salga la fecha, y se pueda inserta en la bd . Y si de paso conocen alguna página para este tipo de cuestiones (separaciones), se los agradecería...
Igual si tienen algún comentario sobre el programa es bien recibido...
Saludos.