perl
2007/1/12の8営業日前は2006/12/29。 use Date::Business; use Date::Japanese::Holiday; my $origin_date = '20070112'; my $offset = -8; my $date = Date::Business->new( DATE => $origin_date, OFFSET => $offset, HOLIDAY => \&holiday, ); print $dat…
YAPC::Asia 2007 Tokyo 2007-04-04〜04-05で、津田ホールで開催予定だそうです。
g:subtech:id:miyagawa:20061024:1161678503 でとっくに先を越されてしまったけど、証明書の期限が切れる2か月前、2週間前、3日前、当日にNotifyしてくれるのをPlaggerでやってみた。Net::SSL::ExpireDate 1.01からcheck-cert-expire.plというスクリプトを同…
拙作のNet::SSL::ExpireDateとTest::Baseとで証明書の期限切れをチェック。こんな感じの出力。 $ prove -v sample/cert-expire.t sample/cert-expire....1..2 ok 1 - rt.cpan.org ok 2 - www.google.com ok All tests successful. Files=1, Tests=2, 5 wallc…
以前(id:hirose31:20061023:1161592213)ちょっと書いた、Net::SSL::ExpireDateをリリースしました。 Net-SSL-ExpireDate SYNOPSISでだいたい使い方はわかるんじゃないかと思いますが、あとでサンプルスクリプトとか紹介するかもしれないす。
0.9.7でなくOpenSSL 0.9.6な環境にNet::SSLeay 1.30をインストールすると、 /usr/local/lib/perl5/site_perl/5.8.7/i686-linux/auto/Net/SSLeay/SSLeay.so' for module Net::SSLeay: /usr/local/lib/perl5/site_perl/5.8.7/i686-linux/auto/Net/SSLeay/SSLea…
Encode::ISO2022JPMS-0.1 - Release Notes Encode-EUCJPMSとあわせて使って相互変換ができるそうな。が、ISO-2022-JP-MSじゃなくてCP50220 or CP50221 を使ったほうがいいらしい。
IKCでトリガしてメッセージを送る 追加承認に応答する とりあえずうごくのはできた。
POE::Component::Jabberでいけそげ。とりあえず、 認証をパスして Pandionとかのコンタクトリスト上でオンラインになる とこまではできた。あとは IKCでトリガしてメッセージを送る 追加承認に応答する なかんじ。
POE POEしてます。 POE - multitasking and networking framework for perl POE - マルチタスク及びネットワークのperl用フレームワーク POE - multitasking and networking framework for perl POE - マルチタスク及びネットワークのperl用フレームワーク B…
Y (libYperl) が入っていると Class::C3 のmake testがコケる Class::C3がないとDBIx::Class::Schemaのmake testがコケる DBIx::Class::Schemaがないとアレが入らない したがって、rm -fr Y.pm Y/ぐっばい>Y
https://なURLもしくはファイルを対象にして、証明書が切れる日時の情報を返すモジュールを作成中。とりあえず正常系の 日時はDateTimeのオブジェクトで返す。 期限切れてるかどうかを判別するメソッド。 指定期間内に期限切れるかどうかを判別するメソッド…
自分が起こしたチケットとか、コメントつけた他人のチケットをトラックしたいんだけど、そういうチケットを一覧でRT at a glanceに表示できないのかな?
ステキな正規表現 $RE{URI}{HTTP} を使うと、テキストからURIをさくっと抜き出したりaタグで囲ったりできるんですが、フラグメント(aタグname属性値の#topみたいなの)にマッチしないんす。なぜか?URIについてのRFCにはRFC 3986があります。で、RFC 3986は…
再現性はつかめてないんだけど、*.plなファイルを開いたときにたまにエラーが起こる。発生すると、以降は毎回*.plなファイルを開いたときに同じエラーが起こる。 emacs-version = "22.0.50.1" cperl-version = "5.22" (http://math.berkeley.edu/~ilya/softw…
気がついたらもう定員イッパイで締め切り…
DRYではない気がするけど、実行するスクリプトやモジュールにいちいち、 BEGIN { if ($ENV{SMART_COMMENTS}) { use UNIVERSAL::require; Smart::Comments->use; } }もしくは BEGIN { if ($ENV{SMART_COMMENTS}) { my @p = map { '#'x$_ } ($ENV{SMART_COMMEN…
(add-hook 'cperl-mode-hook '(lambda () (make-local-variable 'compile-command) (setq compile-command (concat "perl " (buffer-file-name))) (cperl-define-key "\C-c\C-c" 'compile)))文法エラーがある場合、use strictしていれば*compilation*バッフ…
UNIVERSAL::which で。 $ pmwhich() { echo -n "$1#$2 = " perl -MUNIVERSAL::which -M$1 \ -e "print join('#',UNIVERSAL::which('$1','$2')).qq{\n}" } $ pmwhich 'Net::XMPP::Client' 'Connect' Net::XMPP::Client#Connect = Net::XMPP::Connection#Conne…
ネタ元:輝け!全日本最強 CPAN Author 決定選手権 2006 - にぽたん研究所、輝け!全日本最強 CPAN Author 決定選手権 - にぽたん研究所 というもがあるそうな。なんて読むんだろ?
スライドもあわせて。
とてもネタとは思えません。
SlidesList - YAPC::Asia 2006 naoyaのはてなダイアリー - Inside Hatena Bookmark's Backend の資料 xulで書いてる人がいるのねぇ。内容と関係ないところに反応。
PerlでのUTF-8の正規表現いろいろ。 Perlで、utf8とUTF-8の違い