Email::MIME::MobileJPã§æ–‡å—コードã¾ã‚ã‚Šã«æ°—ã‚’ã¤ã‹ã‚ãªã„ã§ãƒ¡ãƒ¼ãƒ«ã®é€å—ä¿¡ã‚’ãŠã“ãªã† - Articles Advent Calendar 2010 Hackerメール関係ã®ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’ã¨ã‚Šã¾ã¨ã‚ã¦ã€ã‚«ã‚¸ãƒ¥ã‚¢ãƒ«ã«ã¤ã‹ãˆã‚‹ã‚ˆã†ã«ã™ã‚‹ãŸã‚ã®ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’ã‹ã„ã¦ã¿ã¾ã—ãŸã€‚ メールã®å—ä¿¡(Parsing) メールã®ãƒ‘ーズã¯ã€ä»¥ä¸‹ã®ã‚ˆã†ã«ã€ãƒ¡ãƒ¼ãƒ«ã®æ–‡å—列をãã‚ã›ã¦ã‚„ã‚Œã°ã„ã„ã§ã™ã€‚ use Email::MIME::MobileJP::Parser; my $src_text = do { local $/; <> }; my $mail = Email::MIME::MobileJP::Parser->new($src_text); メールオブジェクトã‹ã‚‰ Subject ã‚’ãˆã‚‹ã«ã¯ä»¥ä¸‹ã®ã‚ˆã†ã«ã—ã¾ã—ょã†ã€‚ ã“ã“ã§ã¨ã‚Œã‚‹ã‚‚ã®ã¯ MIME ヘッダã«ã¯ã„ã£ã¦ã„ã‚‹æƒ…å ±ã‚’ã‚‚ã¨ã«ã€UTF-8 ã« decode ã•ã‚ŒãŸæ–‡å—列ã§ã™ã€‚ å¯èƒ½ãªã‚‰ã°çµµæ–‡å—ã‚‚ decode ã—ã¾ã™ã€‚ã“ã‚Œã«ã¯ [Encode::JP::Mobile](http://search.cpan.org/p
Perlã§æ—¥æœ¬èªž(ISO-2022-JP)メールをé€ä¿¡(ã¾ã¨ã‚) - kopug memo
{{#tags}}- {{label}}
{{/tags}}