% perl -MTime::Local -le 'print ((timelocal(0,0,23,1,1,2000)-timelocal(0,30,8,,1,1,2000))/(60*60))' 14.5 コマンドラインでもっと楽に計算できそうな気がする。。。