1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
| #!/usr/bin/perl
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdat) = localtime(time);
@hour_words = ("twaalf", "een", "twee", "drie", "vier", "vijf", "zes", "zeven", "acht", "negen", "tien", "elf");
if ($min == 0) { print $hour_words[$hour%12], " uur\n"; }
elsif ($min == 1) { print "een over ", $hour_words[$hour%12], "\n"; }
elsif ($min == 2) { print "twee over ", $hour_words[$hour%12], "\n"; }
elsif ($min == 3) { print "drie over ", $hour_words[$hour%12], "\n"; }
elsif ($min == 4) { print "vier over ", $hour_words[$hour%12], "\n"; }
elsif ($min == 5) { print "vijf over ", $hour_words[$hour%12], "\n"; }
elsif ($min == 6) { print "zes over ", $hour_words[$hour%12], "\n"; }
elsif ($min == 7) { print "zeven over ", $hour_words[$hour%12], "\n"; }
elsif ($min == 8) { print "acht over ", $hour_words[$hour%12], "\n"; }
elsif ($min == 9) { print "negen over ", $hour_words[$hour%12], "\n"; }
elsif ($min == 10) { print "tien over ", $hour_words[$hour%12], "\n"; }
elsif ($min == 11) { print "elf over ", $hour_words[$hour%12], "\n"; }
elsif ($min == 12) { print "twaalf over ", $hour_words[$hour%12], "\n"; }
elsif ($min == 13) { print "dertien over ", $hour_words[$hour%12], "\n"; }
elsif ($min == 14) { print "veertien over ", $hour_words[$hour%12], "\n"; }
elsif ($min == 15) { print "vijftien over ", $hour_words[$hour%12], "\n"; }
elsif ($min == 16) { print "zestien over ", $hour_words[$hour%12], "\n"; }
elsif ($min == 17) { print "zeventien over ", $hour_words[$hour%12], "\n"; }
elsif ($min == 18) { print "achtien over ", $hour_words[$hour%12], "\n"; }
elsif ($min == 19) { print "negentien over ", $hour_words[$hour%12], "\n"; }
elsif ($min == 20) { print "twintig over ", $hour_words[$hour%12], "\n"; }
elsif ($min == 21) { print "eenentwintig over ", $hour_words[$hour%12], "\n"; }
elsif ($min == 22) { print "tweeëntwintig over ", $hour_words[$hour%12], "\n"; }
elsif ($min == 23) { print "drieëntwintig over ", $hour_words[$hour%12], "\n"; }
elsif ($min == 24) { print "vierentwintig over ", $hour_words[$hour%12], "\n"; }
elsif ($min == 25) { print "vijfentwintig over ", $hour_words[$hour%12], "\n"; }
elsif ($min == 26) { print "zesentwintig over ", $hour_words[$hour%12], "\n"; }
elsif ($min == 27) { print "zevenentwintig over ", $hour_words[$hour%12], "\n"; }
elsif ($min == 28) { print "achtentwintig over ", $hour_words[$hour%12], "\n"; }
elsif ($min == 29) { print "negenentwintig over ", $hour_words[$hour%12], "\n"; }
elsif ($min == 30) { print "half ", $hour_words[$hour%12], "\n"; }
elsif ($min == 31) { print "een over half ", $hour_words[($hour+1)%12], "\n"; }
elsif ($min == 32) { print "twee over half ", $hour_words[($hour+1)%12], "\n"; }
elsif ($min == 33) { print "drie over half ", $hour_words[($hour+1)%12], "\n"; }
elsif ($min == 34) { print "vier over half ", $hour_words[($hour+1)%12], "\n"; }
elsif ($min == 35) { print "vijf over half ", $hour_words[($hour+1)%12], "\n"; }
elsif ($min == 36) { print "zes over half ", $hour_words[($hour+1)%12], "\n"; }
elsif ($min == 37) { print "zeven over half ", $hour_words[($hour+1)%12], "\n"; }
elsif ($min == 38) { print "acht over half ", $hour_words[($hour+1)%12], "\n"; }
elsif ($min == 39) { print "negen over half ", $hour_words[($hour+1)%12], "\n"; }
elsif ($min == 40) { print "tien over half ", $hour_words[($hour+1)%12], "\n"; }
elsif ($min == 41) { print "elf over half ", $hour_words[($hour+1)%12], "\n"; }
elsif ($min == 42) { print "twaalf over half ", $hour_words[($hour+1)%12], "\n"; }
elsif ($min == 43) { print "dertien over half ", $hour_words[($hour+1)%12], "\n"; }
elsif ($min == 44) { print "veertien over half ", $hour_words[($hour+1)%12], "\n"; }
elsif ($min == 45) { print "kwart voor ", $hour_words[($hour+1)%12], "\n"; }
elsif ($min == 46) { print "veertien voor ", $hour_words[($hour+1)%12], "\n"; }
elsif ($min == 47) { print "dertien voor ", $hour_words[($hour+1)%12], "\n"; }
elsif ($min == 48) { print "twaalf voor ", $hour_words[($hour+1)%12], "\n"; }
elsif ($min == 49) { print "elf voor ", $hour_words[($hour+1)%12], "\n"; }
elsif ($min == 50) { print "tien voor ", $hour_words[($hour+1)%12], "\n"; }
elsif ($min == 51) { print "negen voor ", $hour_words[($hour+1)%12], "\n"; }
elsif ($min == 52) { print "acht voor ", $hour_words[($hour+1)%12], "\n"; }
elsif ($min == 53) { print "zeven voor ", $hour_words[($hour+1)%12], "\n"; }
elsif ($min == 54) { print "zes voor ", $hour_words[($hour+1)%12], "\n"; }
elsif ($min == 55) { print "vijf voor ", $hour_words[($hour+1)%12], "\n"; }
elsif ($min == 56) { print "vier voor ", $hour_words[($hour+1)%12], "\n"; }
elsif ($min == 57) { print "drie voor ", $hour_words[($hour+1)%12], "\n"; }
elsif ($min == 58) { print "twee voor ", $hour_words[($hour+1)%12], "\n"; }
elsif ($min == 59) { print "een voor ", $hour_words[($hour+1)%12], "\n"; } |