ついに28か。

もうオイラも若者ではないんだな。。。

「ポジティブ」だけが要素じゃない。

http://d.hatena.ne.jp/tokuhirom/20081103/1225670242

これはものすごく共感できるし、現実にそういう状況にしょっちゅう出くわす。
成果を出したいという思いだけでは、成果は出ないのです。
悲観的な情報も考慮し、それに対処していく必要も出てくる。
これに感情的な反論を加えられる事もよくありますけど、それは悲観的要素から目を背けているに過ぎないし、そういう情報の提供者を攻撃すること自体もそもそも間違い。

[Perl]Email::FilterとかEmail::Simpleでheaderメソッド使ってFromを取得するときの注意

2009-01-01 追記
この記事は盛大に誤爆しております。実際には、Email::FilterもEmail::SimpleもきちんとFromヘッダを取り回してくれますので、ご安心ください。
詳細は、この記事および、この実証記事をご確認ください。m(_ _)m


メールに自動返信するプログラムを書く際、Email::Filter-1.032やEmail::Simple-2.004を使ったりするんだけど、こいつらではうまく取得できないFrom値が存在するみたい。

例えば、SoftBankの705SHから送信されたメールのFrom欄。

<****************@softbank.ne.jp>

こういう風に、<〜>で囲われていて、かつ表示名称(※)が無いものは、これらのモジュールだとうまく取得できない。

以下、実証コード。

 #!/usr/bin/perl
 use Email::Filter;
 use Data:Dumper;
 my $email = Email::Filter->new;
 my $log = '/tmp/email_filter.log';
 open my $LOG, '>>', $log;
 print $LOG Dumper $email->header( 'From' );
 close $LOG;

これをpostfixで受けれるように、/etc/aliasesを編集。

test: "|/path/to/script.pl"

で、実際にメールを食わせてログ見てみると、

$VAR1 = '';

あまり暇が無いので、取り敢えずメモに止めておく。

※表示名称ってのはこういうのです。

山田 三郎 <****************@softbank.ne.jp>

(正式名称じゃないです。きっと。)

[生活]めまいがひどいので脳外科にいくことにした。

寝て起きたら行ってくるぜ＞＜
採血とか合ったらイヤザンス＞＜