一个关于计算星期几的perl脚本

食古不化

1. #!/usr/bin/perl
   
2. use Date::Manip;
   
3. 
   
4. $date = `sudo grep "Sync completed" /var/log/emerge.log | tail -n1 | cut -c-10`;
   
5. $date = &DateCalc("Jan 1, 1970  8:00:00 GMT",$date);
   
6. $date = UnixDate("$date","%A %H:%M");
   
7. print "$date";

复制代码

第一步$date活得的好像是一个秒数，我现在使用的是硬件时间（北京时间）。
但怎么改最后得到的结果都不对。

食古不化

代码来自于，最后一个截屏， lastsync.pl

http://conky.sourceforge.net/screenshots.html