2007-06-01から1ヶ月間の記事一覧

perl POP3 MyDNS

MyDNSでお勧めソフト「biffpop」が落とせなくなっていてどうしようかと思ったが、 よく考えたら、作れば良いということに気づいた orzNet::POP3でつくって、cron設置。こんな感じでつくってやればOK。 #!/usr/bin/perl use strict; use warnings; use Data::…

perl boolean

わかりやすい。 1 use strict; 2 use warnings; 3 use boolean ':all'; 4 5 sub hoge { 6 my ($hoge,) = @_; 7 8 if($hoge) { 9 return true; 10 } 11 else { 12 return false; 13 } 14 } http://search.cpan.org/~ingy/boolean-0.11/lib/boolean.pm

wassr AIR

wassrのクライアントアプリ「wasaco」をいれてみた。 ボタン軽くてうっかり連打しちゃったりするんですが 結構快適です。http://kan.vc/blog/1181711076あとは、AIRのランタイムがないと動きません。http://labs.adobe.com/downloads/air.html

perl MIME::Lite::TT::Japanese Text::ASCIITable

Text::ASCIITableでテーブルを作成してM::T::T::Japanseへこんな感じでわたしてやっていたら 結果のテーブルが変形する。 my $msg = MIME::Lite::TT::Japanese->new( From => 'hoge@hoge.com', To => 'hoge@hoge.com', Subject => 'Hello', Template => \$te…

ruby df

IO.popen('df') { |io| while line = io.gets() puts line if line.split(' ')[5] == '/' end } ftp://ftp.kek.jp/kek/unix4hep/html/df1.html