if ($campo eq 'TIE')
{
($HH,$MM,$SS) = $valor =~ /(..)(..)(..)/;
$valor = $HH:$MM:$SS;
}
BD1: Jose1 en el servidor principal Jose1(Jose1p.manuel.com) puerto: 3336
BD2: Jose2 en el servidor Jose2(Jose1p.manuel.com) puerto: 3337
($HH,$MM,$SS) = $valor =~ /(..)(..)(..)/; # tres campos de dos caracteres
$valor = "$HH:$MM:$SS";
($HH,$MM,$SS) = $valor =~ /(..)/g; # Recorremos $valor en grupos de dos caracteres
$valor = "$HH:$MM:$SS";
@x = $valor =~ /(..)/g; # Lo mismo, pero ahora en vez de 3 variable, sólo un array
$valor = join(":",@x); # y unión con joint
$valor = join(":", $valor =~ /(..)/g); # Todo en una línea: división y unión. Nos ahorramos una variable temporal
substr($valor,2,0)=":";
substr($valor,5,0)=":";
if ( $UID == 3 ) {
# Abrir conexión con servidor Jose1
# ... connect
} else {
# Abrir conexión con servidor Jose2
# ... connect
}
# Publicación en la base de datos...
# ... insert o update
Josmanue escribiste:Vaya curro guapo tio! ¿Y eso funciona de verdad?
Josmanue escribiste:No sabía que se tuviera tanto control de los incendios desde los satélites. Aunque una idea mucho mejor sería hacer un control sobre los ijoputas que le meten fuego al campo.... para eso no hay programa ¿no?
if ( $UID == 3 ) {
# Abrir conexión con servidor Jose1
# ... connect
} else {
# Abrir conexión con servidor Jose2
# ... connect
}
# Publicación en la base de datos...
# ... insert o update
INSERT INTO tabla SET LON = 'xxxx,xxxx', SLA = 'x', SLO = 'x', UID = 'xxxxx', LAT = 'xxxx,xxxx', ALT = 'xxxxx', TIE = 'xxxxxx', FEC = 'xxxxxx';
$dsn = "DBI:mysql:database=$database;host=$host;port=$port";
$dbh = DBI->connect($dsn,$user,$password)
or die $DBI::errstr;
$sth = $dbh->prepare($cadena_final);
$rv = $sth->execute;
Usuarios navegando por este Foro: Google [Bot] y 0 invitados