Skip to content

Instantly share code, notes, and snippets.

Antonio Hernández Blas nihilismus

Block or report user

Report or block nihilismus

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
View fix-denue-inegi-csv.sh
#!/bin/sh
# Fixes CSV files from DENUE (INEGI), which have some tuples/registers
# splitted in two lines.
#
# Copyright © 2015 Antonio Hernández Blas <hba.nihilismus@gmail.com>
# This program is free software. It comes without any warranty, to
# the extent permitted by applicable law. You can redistribute it
# and/or modify it under the terms of the Do What The Fuck You Want
# To Public License, Version 2, as published by Sam Hocevar. See
# http://www.wtfpl.net/ for more details.
@nihilismus
nihilismus / SF.js
Last active Aug 29, 2015
Ordinario 1
View SF.js
var SF = (function() {
/*
* Entrada:
* f1(5, 3)
* Dos números cualesquiera: x e y.
*
* Salida:
* [[5, 15], [3, 9]]
* Dos arreglos anidados con dos elementos: el primero x u y, y el
* segundo su triple.
@nihilismus
nihilismus / test.php
Created May 31, 2015
Ejemplo de uso de pgsql y pdo_pgsql
View test.php
// Módulo pgsql:
<?php
$c_pgsql = pg_connect("host=127.0.0.1 user=alu12345 password=12345 dbname=bd12345 port=1111");
$r_pgsql = pg_query($c_pgsql, "select version()");
$r = pg_fetch_assoc($r_pgsql);
echo $r['version'];
?>
// Módulo pdo_pgsql:
View core.clj
(ns plf.core)
(defn isa01
[xs]
(map (fn [x] (/ x 2)) xs))
(defn isa02
[xs]
(map count xs))
View main.clj
(ns prueba.main)
(def alumnos
[{:nombre "A"
:apellidos {:paterno "AA" :materno "AAA"}
:sexo "m"
:numero-de-control "12345"
:calificaciones [80 70 80]}
{:nombre "B"
:apellidos {:paterno "BB" :materno "BBB"}
View main.clj
(ns prueba.main)
(def alumnos
[{:nombre "A" :numero-de-control "12345" :calificaciones [80 70 80]}
{:nombre "B" :numero-de-control "23456" :calificaciones [90 70 0]}
{:nombre "C" :numero-de-control "34567" :calificaciones [100 70 70]}
{:nombre "D" :numero-de-control "45678" :calificaciones [100 100 90 90 70 70 80 80]}
{:nombre "E" :numero-de-control "56789" :calificaciones [100 70 70]}
{:nombre "F" :numero-de-control "67890" :calificaciones [100 90 100]}
{:nombre "G" :numero-de-control "78901" :calificaciones [100]}
View mxcsv2tcpdump.sh
#!/bin/sh
# Converts http://www.nirsoft.net/countryip/mx.csv
# into a rules of tcpdump
#
# Copyright © 2015 Antonio Hernández Blas <hba.nihilismus@gmail.com>
# This program is free software. It comes without any warranty, to
# the extent permitted by applicable law. You can redistribute it
# and/or modify it under the terms of the Do What The Fuck You Want
# To Public License, Version 2, as published by Sam Hocevar. See
# http://www.wtfpl.net/ for more details.
@nihilismus
nihilismus / 1st-example-of-output.txt
Last active Aug 29, 2015
script to search for missing packages using ldd, objdump and slackpkg.
View 1st-example-of-output.txt
root@slackware-current: cat missing-packages.log
Searching with ldd...
/usr/bin/capinfos [wireshark-1.12.2-x86_64-1_hba] => libgcrypt.so.11 [?]
/usr/bin/capinfos [wireshark-1.12.2-x86_64-1_hba] => libgcrypt.so.11 [?]
/usr/bin/capinfos [wireshark-1.12.2-x86_64-1_hba] => libgcrypt.so.11 [?]
/usr/bin/captype [wireshark-1.12.2-x86_64-1_hba] => libgcrypt.so.11 [?]
/usr/bin/captype [wireshark-1.12.2-x86_64-1_hba] => libgcrypt.so.11 [?]
/usr/bin/dftest [wireshark-1.12.2-x86_64-1_hba] => libgcrypt.so.11 [?]
/usr/bin/dftest [wireshark-1.12.2-x86_64-1_hba] => libgcrypt.so.11 [?]
/usr/bin/dftest [wireshark-1.12.2-x86_64-1_hba] => libgcrypt.so.11 [?]
@nihilismus
nihilismus / xrandr-qemu.sh
Created Apr 7, 2015
xrandr command for a gnu/linux virtual machine in qemu with -display=gtk
View xrandr-qemu.sh
#!/bin/sh
# Based on https://wiki.archlinux.org/index.php/Xrandr#Adding_undetected_resolutions
# For a gnu/linux virtual machine in qemu with -display=gtk
mode="$(cvt 1280 720 | tail -1 | sed 's/Modeline //')"
xrandr --newmode $mode
mode="$(cvt 1280 720 | tail -1 | sed 's/Modeline //' | sed 's/ .*//')"
@nihilismus
nihilismus / get-kernel-patch.sh
Last active Nov 26, 2016
Script to download, verify (sha256sum), uncompress and prepare a Linux kernel source tarball.
View get-kernel-patch.sh
#!/bin/sh
# Copyright © 2016 Antonio Hernández Blas <hba.nihilismus@gmail.com>
# This program is free software. It comes without any warranty, to
# the extent permitted by applicable law. You can redistribute it
# and/or modify it under the terms of the Do What The Fuck You Want
# To Public License, Version 2, as published by Sam Hocevar. See
# http://www.wtfpl.net/ for more details.
me=$(basename $0)
You can’t perform that action at this time.