Archiv für Februar, 2007
Die tapfere Liese
Früh am Morgen: Mein Schatz ist im Bad. Währenddessen mache ich Licht bei den Vögeln und gebe Lotte ihren Tropfen Metacam. Jetzt brauche ich sie dafür nicht mehr einzufangen. Ich hab beobachtet, an welchen Stellen sie sich beim Klettern meistens mit dem Schnabel festhält, und auf einen dieser Punkte träufele ich ihr die süße Medizin. [...]
In: Blog · Schlagworte: Haustiere
Herzlichen Glückwunsch
Gestern morgen in der U-Bahn … hinter mir ertönt eine Männerstimme im Ansageton: “Guten Morgen!” – Aha, Kontrolleure mal wieder! Ich öffne meine Jacke und taste nach meiner Geldbörse. “Liebe Hamburgerinnen und Hamburger …” – Das ist wohl doch eher ein aufdringlicher Bettler. Also, Jacke wieder zu … “… ein neues Verkehrmittel … ” (Es [...]
In: Blog · Schlagworte: Alltag, HVV
find_dupes.pl
` ############################################################ # find_dupes.pl: Welche evtl. identischen Dateien habe ich? ############################################################ use strict; use File::Find; my %CheckedSums; my @xxlFiles; my $too_large = 20000000; my $Newline = “\n”; ############################################################ # Ausgabe: Ergebnisliste ############################################################ sub print_dupes { my $trennlinie = “-” x 20 . “$Newline”; print “Dateien wurden untersucht.$Newline”; print “Möglicherweise identisch:$Newline”, $trennlinie; my $keine = “(Keine [...]
In: Blog · Schlagworte: Perl
extcnt.pl
Eine kleine Spielerei, um festzustellen, mit welchen Dateitypen man sich grad seine Festplatte vollgemüllt hat: ` ############################################################ # extcnt.pl: Welche Dateitypen verbrauchen wieviel Plattenplatz? ############################################################ use strict; use File::Find; my $Bytes; my %ExtSizes; ############################################################ # Ausgabe: Abschnittsüberschrift ############################################################ sub print_head { print "-" x 46, "\n"; print $_, "\n"; printf("%-22s %22s\n", "Dateiendung", "Bytes"); print "-" [...]
In: Blog · Schlagworte: Perl
