9 lines
203 B
Perl
9 lines
203 B
Perl
|
#!/usr/bin/perl -T -w
|
||
|
|
# xlocksat
|
||
|
|
require "ctime.pl";
|
||
|
|
|
||
|
|
#local($hour) = `/bin/date "+%H:"`;
|
||
|
|
local($hour) = (localtime)[2];
|
||
|
|
local($saturation) = (12 - abs($hour - 12)) / 12 ;
|
||
|
|
printf("%.2f\n", $saturation);
|