Wer Geektool (http://projects.tynsoe.org/en/geektool/) benützt und was mit den Geeklets (http://www.macosxtips.co.uk/geeklets/) anfangen kann, der wird sicher auch schon mal über die Fuzzy Clock gestossen sein, welche die aktuelle Uhrzeit als Text darstellt, also zB Ten Fiftytwo. Wer es nicht ganz so genau braucht und alles gerne auf Detusch haben möchte darf mein angepasstes Skript verwenden:
#!/usr/bin/perl
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdat) = localtime(time);
@hour_words = ("zwölf", "eins", "zwei", "drei", "vier", "fünf", "sechs", "sieben", "acht", "neun", "zehn", "elf","zwölf");
if  ($min == 0) { print "punkt ", $hour_words[$hour%12], "\n"; }
elsif ($min >= 1 && $min < 5) { print "fünf nach ", $hour_words[$hour%12], "\n"; }
elsif ($min >= 5 && $min < 10) { print "zehn nach ", $hour_words[$hour%12], "\n"; }
elsif ($min >= 10 && $min < 15) { print "viertel nach ", $hour_words[$hour%12], "\n"; }
elsif ($min >= 15 && $min < 20) { print "zwanzig nach ", $hour_words[$hour%12], "\n"; }
elsif ($min >= 20 && $min < 25) { print "zehn vor halb ",$hour_words[$hour%12+1], "\n"; }
elsif ($min >= 25 && $min < 30) { print "halb ", $hour_words[$hour%12+1], "\n"; }
elsif ($min >= 30 && $min < 35) { print "fünf nach halb ", $hour_words[$hour%12+1], "\n"; }
elsif ($min >= 35 && $min < 40) { print "zehn nach halb ", $hour_words[$hour%12+1], "\n"; }
elsif ($min >= 40 && $min < 45) { print "viertel vor ", $hour_words[$hour%12+1], "\n"; }
elsif ($min >= 45 && $min < 50) { print "zehn vor ", $hour_words[$hour%12+1], "\n"; }
elsif ($min >= 50 && $min < 55) { print "fünf vor ", $hour_words[$hour%12+1], "\n"; }
elsif ($min >= 55 && $min <= 59) { print "punkt ", $hour_words[$hour%12+1], "\n"; }
Und hier als TXT File zum Download
Meine Geektool Fuzzy Clock auf Deutsch
– 7. Juni 2011Posted in: Geekiges
