Mit dem JSON-Modul kann man JSON in Perl sehr bequem verarbeiten. Die Sache hat nur einen Haken, es ist langsam.
Dazu muss man wissen, dass es für JSON zwei Backend-Module gibt: perl-JSON-PP und perl-JSON-XS. perl-JSON-PP ist “pure Perl”, während perl-JSON-XS in C geschrieben ist.
Welches Backend man benutzt lässt sich recht leicht mit folgendem Code überprüfen:
#!/usr/bin/perl
use strict;
use warnings;
use JSON;
my $json = new JSON;
print "Backend: ".scalar($json->backend)."\n";
exit;
Durch den Wechsel des Backends ist die Laufzeit meines Scripts, das etwas über 2000 JSON-Dateien durcharbeitet von 33 Minuten auf 4 Minuten(!) gefallen.
JSON::XS ist in meinem konkreten Anwendungsfall als um den Faktor 8 schneller.
Alle zwei Jahre ist es Zeit für einen neuen PGP-Schlüssel.
Die neue Key-ID ist 0xB545B770 und ist der Nachfolger von 0xE5890855.
-----BEGIN PGP PUBLIC KEY BLOCK-----
Comment: GPGTools - https://gpgtools.org
mQENBFhoURwBCACxkqG80WoFm23MTUnV/9InlANrUIQTqQo+31ef6vpqem6jsy91
+8AxtamLqOfPe6OpgGDSXwM5TuGT/JVR1tXDC3OborsIVhfaKqmby5XYEx+yuEqT
sx3+/XcxSeL8oxCDplP+LHrB+St/fFZguLmEf/cRdn1erJ4SeRfV9ei11IMui0Dx
uy0RRS+3Ks2lVECzQ1xB9mMrKZWM1ZFU49rOyMtKNYaaEliT0tdRyfekSvJ9lWdk
En1C5SOCt+JC/z9nikg2oP6hXNJtdktpfd9HpLPlPMenfLOem4HuLjXY+R+19ywk
l/+MtIDLNfGmyfxpM0mSqf3wQAU5jp2XSp2zABEBAAG0IlN0ZXZlIE1laWVyIDxl
bWFpbEBzdGV2ZS1tZWllci5kZT6JAT0EEwEKACcFAlhoURwCGwMFCQPBFYAFCwkI
BwMFFQoJCAsFFgIDAQACHgECF4AACgkQf7FK8rVFt3DExgf/dn9+6wyQmcrv0D/e
WhLHnyE3x7WhxYuzbBzBzSf3uqxQ6mHnSuNFe4jP2nX4KZopaML+95ZOhuW2C2TV
qBpwESW8IMNtu3doBLDQe55D5z/x/mBJLFCeGXSbWGATDAJ5h2/fk9Xfzq8SO8aW
tm3SX03YgJpasbx9geD64KLp2yFOI8zlkpv5c1cRM0RJX8myFjMgwGA6ZmPedbiP
zMFpDwdYnibZ+4AX1+RVXTqJVZydjTnSN1ICW6wCi0pioJ5N5Y2XXdfdDJaMtmsW
HnATIwectvjSojvop16YeMFV/6uDKo6Msu52HY4mSsozJLYO7HHwfmU5KAE9VXIm
BJSxq7kBDQRYaFEcAQgA5okvZzowPrKaTH+rYifYvZiPW9nH5FPGPktYtLyUNuNq
QIDzqTlVyoKXLNtyX6rGFgRroe/XjPHKHAKQhsiH5YKg0G7QEE474ytcNv1tjVWw
dJmYkquqvfcuzwcJ/2/m7r3pG+Kie43xA4mcV6da2EsX3idiQGrbwZEhGKNg/uQL
yMzAf/NCjXPUa7vL7RhT+zTDtSfLRxawl1EMCJjhQF+GDQYgEnnL2mxFTDWfu0Zq
19pSC9xSv88I9XdOkG9lEzwRadZDircAgBp38LdavRazZd5ZyeCjtfIiqU9a7n3s
QD2brkbFlp2Po3h2fSnAmh2KiCZEmjRrLpHGMqV+swARAQABiQElBBgBCgAPBQJY
aFEcAhsMBQkDwRWAAAoJEH+xSvK1RbdwqIEH/iN70sKxcv+tsZII5PROuTnQRyy3
vnbs5ZcAQTyz7NXyXWLddWjbxPBPsKvOqhGk389VMLapyFeXevqNALOSZRHWmd4q
1hxNfFmufeTachoAOdaROp2Sngh+cMxpuRZnWJcpNXegSOt1HnTql6HoFm/XwsWn
JOB462TwRyjcClxtWFAmfB0Z+CB6fWe532HlgtWUsOtgOtO67wAYk8LiP1y8zq63
t6qxhSeIONX3lM4GMoh1LoGnNVoHcD9eIJjoV005CCObJ5e0i18XIgSTmP2dwzlP
Yb3rqgVU7b8+1NNk2MgZGBBa0S/YIyrXC1z9CTFMbFnEmkomG0Ji57vuhA0=
=FT+O
-----END PGP PUBLIC KEY BLOCK-----
Mit der Zeit sammeln sich auf einem NAS eine Menge Videodateien. Um einen besseren Überblick zu bekommen, was in jeder ist, kann man mithilfe von ffmpeg und ImageMagick eine Bilderserie erstellen.
Zunächst extrahiert mit ffmpeg hierzu eine Handvoll Frames in einem vordefinierten Abstand:
ffmpeg -i VIDEO.mp4 -r 1/30 -vf scale=-1:120 -vcodec png capture-%002d.png
Anschließend fügt man die so entstandenen Einzelbilder zu einer Übersicht zusammen:
montage -geometry +4+4 capture*.png video-thumbs.png
Fertig!
Im Laufe der Zeit sammeln sich auf CentOS-Systemen eine Reihe verschiedener Kernel-Versionen an. Wenn der aktuelle Kernel keine Probleme macht, kann man jedoch die alten mit folgendem Kommando einfach entsorgen:
KERNELVER=`uname -r`; yum remove `rpm -qa | grep ^kernel | grep -v $KERNELVER`
Dabei wird zunächst die Version des laufenden Kernels in der Variable KERNELVER geparkt. Um die passenden Pakete für yum remove zu finden wird zunächst nach ^kernel (alle Paketnamen, die mit kernel beginnen) gesucht und anschließend, durch grep -v, alle mit der aktuellen Version herausgefiltert. Der Rest wird dann entfernt.
Mal wieder ein kurzer Post aus der Kategorie “Vielleicht hilft es jemandem”.
Problem:
warning: rpmts_HdrFromFdno: Header V3 DSA signature: NOKEY, key ID e8562897
Lösung:
rpm --import http://mirror.centos.org/centos/RPM-GPG-KEY-CentOS-5