perl

Google talkでメールを送るスクリプト

会社の人とか、よくメッセンジャー使う人とかとのやり取りはメッセンジャー使えば良いんだけど、 僕の周りはPC立ち上げていない人の方が多く、たいてい携帯でメールが飛んできます。 で、僕はPC立ち上げてるので携帯にメール来たらそれをPCから返したいなっ…

CPAN良くわからない

d:id:tokuhirom:20080817:1218953905を見て、 【追記】CPANにリリースしました と書いてあったのでサンプルコードもあるし勉強してみようと思ったのだけど、 いつもどおりcpanでインストールしようとしたら上手くいかなかった。 cpan[11]> install Test::TCP…

映画生活のTV放映予定の映画リストをeventcastに登録する

本当は上映されてる映画のスケジュールをeventcastに登録したかったのだけど、 そこまでやろうとするとどうやれば良いのか考え付かなかったので、 とりあえず出来るところからやってみた。 流れは、 映画情報 - ぴあ映画生活にある「今週TV放映予定の映画」…

3引数のopenで標準出力とファイル出力を出し分け

以前に404 Blog Not Foundで「openは3引数で」というエントリを見たことがあって3引数を使うようにしていたんだけど、ログを吐くときに標準出力とファイル出力の出し分けをしようとしてどうやっていいのかわかんなかった。 どこで分岐させるのがいいの?open…

perlでコマンドラインオプションの処理方法

参考:Perl スクリプトでのコマンドラインオプション処理 Getopt::Longを使う ハッシュで指定するだけでOK use Getopt::Long; my $opt_all = 0; my $opt_debug = 0; GetOptions('all' => \$opt_all, 'debug' => \$opt_debug); print "\$opt_all: $opt_all\n";…

HTMLタグのエスケープは文字クラスとhashでやる

404 Blog Not Found:perl - 勝手に添削 - 40行で作るPerl用テンプレートエンジン2つ勉強になった。HTMLタグのエスケープとreturn 例えば、これを以下のように書いてしまった場合、どうなるだろうか。 sub convert { return unless defined(my $str = shift);…

スクリプトをutf-8で書く場合はuse strictの下

404 Blog Not Found:perl - use utf8; スクリプトがUTF-8で書かれている場合は、わざわざdecode_utf8('リテラル');とするより、最初にuse utf8;としておくのが吉。 わざわざdecode_utf8をしなくて良いと。euc-jpとかの場合なら # subject を MIME エンコード…