うまい棒の断片

■ [perl]Sys::SyslogのsetlogsockがUNIVERSAL::requireでimportできない？ 01:01

UNIVERSAL::requireを参考にしたとこ

• http://d.hatena.ne.jp/end0tknr/20080626/1214429999
• http://egg.bomcity.com/wiki?UNIVERSAL::require
• http://www.ndis.co.jp/blog/tech/2008/12/use-require-import.html

できないことないよなー。きっとしょうもないところを間違ってるんだ。

use UNIVERSAL::require;

my $module = "Sys::Syslog";
$module->use(':DEFAULT', 'setlogsock');

setlogsockは@EXPORT_OKに入ってるからこれでいいと思ったんだけど。他のモジュールだとこれと同じ方法で@EXPORT_OKのサブルーチンはimportできたのに。

■ [perl]Time::Local::timelocalに渡す"年"の引数 00:52

1900引かなくても、勝手に引いてくれるということを知った。

91 sub timegm {
92 my ( $sec, $min, $hour, $mday, $month, $year ) = @_;
93
94 if ( $year >= 1000 ) {
95 $year -= 1900;
96 }