Skip to main content

Posts

Reading and writing JSON in Perl

Errata for  JavaScript JSON Cookbook  :  use JSON;  use Data::Dumper;  my $json = '{ "call":"KF6GPE","type":"l","time":"1399371514", "lasttime":"1418597513","lat": 37.17667,"lng": -122.14650, "result" : "ok" }';  my %result = decode_json($json);  print Dumper(result);  print encode_json(%result);  Fixed:  use strict;  use warnings;  use JSON;  use Data::Dumper;  # string json  my $json = '{ "call":"KF6GPE","type":"l","time":"1399371514", "lasttime":"1418597513","lat": 37.17667,"lng": -122.14650, "result" : "ok" }';  my $result = decode_json($json);  print Dumper($result);  print encode_json($json), "\n";  Output:  $VAR1 = { 'lat' => '37.17667', 'lasttime' => '1418597
Post a Comment
Read more
Recent posts

pdo select

function login_user() {   global $connection;   if (isset($_POST['submit'])) {   $username = $_POST['username']; $password = $_POST['password'];   //$query = "SELECT * FROM users WHERE username = '{$username}' AND password = '{$password}'";   $query = "SELECT * FROM users WHERE username = ? AND password = ?";   $send_query = $connection->prepare($query);   //$send_query->execute(array());   $send_query->execute(array($username, $password));  $send_query->setFetchMode(PDO::FETCH_ASSOC);   i f (($send_query->rowCount()== 0)) {   set_message("Password or Username are wrong");   redirect("login.php");   } else {   set_message("Welcome to Admin {$username}");   redirect("admin");   }   }  }
Post a Comment
Read more

Debian es Linux no Unix

¡Por fin ha quedado FreeBSD con acceso a Internet! (ahora está instalando 525 archivos para Gnome 3) Los puntos clave: "search" va con el nombre proporcionado por el ISP y su DNS Route en uno de los IPv4; usar Atheros, no RealTek (Acer Aspire V5, una PC portátil adquirida en 2013). Y ya con eso. He sufrido mucho, desde el domingo, pero ha quedado este mediodía del martes. We are the champions, my friend.  Queríamos SmartOS para empezar con el tema de virtualización bare metal, para aprovechar que ese equipo en cualquier momento truena debido a que se le han saltado los tornillos del lado izquierdo de la batería -que ya no carga- en el último viaje a Querétaro , pero nunca pudimos levantar la red. Ahora ya sé por qué: estamos muertos en networking. No sabemos nada de monitorear la red.
Post a Comment
Read more

error radeon kernel modesetting for R600 or later

Installing Debian 10 on Acer Aspire 5738PG-6773 you get this message in first rebooting:  [drm: radeon_pci_probe [radeon]] *Error* radeon kernel modesetting for R600 or later requires firmware installed (you review messages using journalctl -xb command at terminal). This issue is about ATI radeon graphics. If your laptop has Internet connection, you win:  sudo apt install firmware-linux-nonfree fix it. source: https://wiki.debian.org/Firmware
Post a Comment
Read more

vine a Queretaro buscando trabajo

La idea nació cuando descubrí que una empresa queretana de seguridad privada había sacado un desplegado en el Diario del Istmo , en Coatzacoalcos, para reclutar personal. Pagaban el traslado. ¿No te gusta Querétaro? También tenían vacantes en Reynosa, Tamps. En ambos casos, cubrían cuatro meses de hospedaje (alerta, ¿recuerdas tu aventura laboral en Hidalgotitlán? Ahí la empresa jalisciense contratista del Programa Piso Firme -SEDESOL, Josefina Vázquez Mota-, te había alojado en la cocina de una casa habilitada como oficina-dormitorio). Soporte Informático Municipal Aunque hermosa, la ciudad tiene grandes y graves problemas (es como una mujer bonita invadida por el cáncer): la miseria se ve por todas partes, los contrastes son muy fuertes, a veces de calle a calle o de pared a pared. La desigualdad es algo que arrastra México aún antes de nacer como nación libre e independiente pero, vista en la capital de un estado pujante, que pretende pasar del clúster educativo al clúster ex
Post a Comment
Read more