Edit: I think I understand now: It's my avatar, isn't it? It makes me look angry.
Take the ages posted, convert to days. Then, add the amount of days in difference the post is to current time. Shouldn't be hard at all.
Edit: I think I understand now: It's my avatar, isn't it? It makes me look angry.
Great work! Now, re-calculate without my pushing-30 ass because I certainly throw all the numbers out of wack.
#!/usr/bin/perl -W
use strict;
use Time::Local;
#This script expects to be run as blah.pl yyyy mm dd hh nn ss
my $current_time = time;
my $birth_time;
if ($#ARGV!=-1) {
$birth_time = timelocal($ARGV[5],$ARGV[4],$ARGV[3],$ARGV[2],$ARGV[1]-1,$ARGV[0]);
} else { #My Birthday Nov. 26, 1984 at 19:35:45
$birth_time = timelocal(45,35,19,26,10,1984);
}
my $age = $current_time - $birth_time; #in seconds
$age /= (60*60*24*365.256363051);
print $age;
