roughtime

[marcel.grunauer at lovely.net]

* * * vienna-pm-list * * *


Hier ist was fuer die control freaks unter uns:

Was kuemmert's mich, ob es 16:31 oder 16:32 ist? Es ist einfach halb fuenf.


#!/usr/bin/perl -w

use strict;

sub roughtime {
	my (undef,$min,$hour) = localtime(shift());
	my $r =  ('', 'five past ', 'ten past ', 'quarter past ',
		'twenty past ', 'twenty-five past ', 'half past ',
		'twenty-five to ', 'twenty to ', 'quarter to ',
		'ten to ', 'five to ', '')[($min + 2) / 5];
	$r .= (qw/twelve one two three four five six seven
		eight nine ten eleven/)[($hour + abs($min-3) / 30) % 12];
	$r .= " o'clock" if ($min + 2) % 60 < 5;
	$r;
}

print roughtime(time), "\n";


Marcel

###
You are subscribed to vienna-pm-list
http://www.fff.at/fff/vienna.pm/