たまには呪文をとなえてみるか：仕事版

アクセスカウンタ

help リーダーに追加 RSS [Perl] メールアドレスの分解

<<   作成日時 ： 2007/09/12 17:25   >>

ブログ気持玉 0 / トラックバック 0 / コメント 2

覚書。Mail::Addressを使うと楽です。


#/usr/bin/perl


use Mail::Address;

my $line = qq{abc@def.com, "foo bar" <ghi@jkl.com>};

my @addrs = Mail::Address->parse($line);

foreach $addr (@addrs) {
# print $addr->format(),"\n";
# print $addr->name(),"\n";
print $addr->address(),"\n";
}


よい所
　・quotewordsでカンマ分解すると、32KBで行き詰まりますが、これにはない
　・Text::CSV_XSで解析すると、abc"def"ghiな文字列を解析できないんですが、これが可能

よくわからん所
　・でも、name()で取ると、頭のアルファベットが大文字になる

あとは、Email::Addressを試してみてどっちが使いやすいかだなー。

設定テーマ

関連テーマ 一覧
<< 前記事（2007/09/12） トップへ 後記事（2007/09/13）>>

月別リンク

ブログ気持玉

クリックして気持ちを伝えよう！
ログインしてクリックすれば、自分のブログへのリンクが付きます。
→ログインへ

トラックバック（0件）

タイトル （本文） ブログ名／日時

トラックバック用URL help


自分のブログにトラックバック記事作成（会員用） help

タイトル
本　文

コメント（2件）

内 容 ニックネーム／日時
ちょｗ
なんか見えてるｗｗｗ
 ひげぼうず
2007/09/13 01:23
指摘ありがとうございます。飲みに行く直前だったので、パスがでてちゃった(^-^;)
 Eba!
2007/09/13 09:49

コメントする help

ニックネーム
URL(任意)
本　文
<< 前記事（2007/09/12） トップへ 後記事（2007/09/13）>>