# NAME Email::MIME::MobileJP - E-mail toolkit for Japanese Mobile Phones # DESCRIPTION **WARNING! THIS MODULE IS IN THE BETA QUALITY. API MAY CHANGE WITHOUT NOTICE!** Email::MIME::MobileJP is all in one E-mail toolkit for Japanese mobile phones. �瓐�䎚�胯��Email::MIME �瑯�芥�潦�箝���𨳍���喋��mobile �硄靽��柴�U�詻�乓�潦�怒�鉝�具�𨳍�整�具���艾���怒�詻�乓�U�怒�怒�扎�卝���卝�����怒�踺�卝�麄���柴�U�詻�乓�潦�怒�扼�踺�� E-mail �整�譌�𨳍�桀𨤍���鉝���卝�麄���柴�汿�艾�譌�艾�鉝�整�具���艾�𨳍�㻫�啜��敺䎚�����𦠜�埈末�怒�扼�溻�卝�胯�𠾼�具�����瓐�具�扼�踺�� # �胯���胯�硔���� ## �~�潦�怒�桀�𦯀縑(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](https://metacpan.org/pod/Encode::JP::Mobile) �鍦⏚�鍂�𨰜�艾���整�踺�� my $subject = $mail->subject(); # �萸�硔�詻�扼�胯���鉝���� From �鉝���卝�怒�臭誑銝卝�柴�����怒�𨰜�整�踺����閬�蝝𨬭�� [Email::Address::Loose](https://metacpan.org/pod/Email::Address::Loose) �柴�扎�喋�嫘�踴�喋�嫘�扼�踺�� my ($from) = $mail->from(); To ����峕�塩�扼�踺�� my ($to) = $mail->to(); ### text part �鉝���� text/plain �� part �鉝�踺�嫘�艾���麄���聦����怒�臭誑銝卝�柴�����怒�𨰜�整�踺��餈𢛵�𠰴�扎�胯��UTF-8 decode �𨰻�䎚�麄������堒�𨰜�桅�滚�𨰜�扼�踺�� my @texts = $mail->get_texts(); text/html �芥�㻫�潦���柴�踴�䎚�颯�𨰜���聦����怒�臭誑銝卝�柴�����怒�𨰜�整�踺�� my @texts = $mail->get_texts(qr{^text/html}); ### �𤫇�� part �鉝���� 隞乩�卝�柴�����怒��get\_parts �具�����~�賬���剹�扼���扎���整�𨰜������@images �桀�閬�蝝𨬭�胯���㻫�潦���鉝���剹�譌�� Email::MIME �柴�扎�喋�嫘�踴�喋�嫘�扼�踺�� my $mail = Email::MIME::MobileJP->new($src); my @images = $mail->get_parts(qr{^image/jpeg});; ### SPF�桃Ⅱ隤� SPF �扼���𧋦敶瓐�怒�晞�潦�踴�扎�卝�剹�𨳍�譌�剹�䎚�艾�卝�卝�具�卝���扼���胯�扼�溻�整�踺�䎚��softbank �� SPF �䎚�譌�𨰻���艾�卝���� nekokak �䎚�����艾�麄�柴�扼�����瓐�整�𠰴蝴�怒�麄�麄�芥���卝���𨰜�䎚�芥����@masason �押���怒�卝�𨰜�艾�譌�𨬭�𨰻����閰喟敦�臭誑銝卝�柴�萸�扎���鉝�踴�艾�譌�𨬭�𨰻���� http://blog.nekokak.org/show?guid=Vl8eRFxp3xGW08LZob1Swg ## �~�潦�怒�桅��靽� ### �~�潦�怒�芥�硔�詻�扼�胯���雴�𨀣�僐�踺�� Email::MIME::MobileJP::Creator �鉝�扎�卝���啜��蝪∪�塩�怒�~�潦�怒�芥�硔�詻�扼�胯���雴�𨀣�僐�扼�溻�整�踺�� use utf8; use Email::MIME::MobileJP::Creator; use Email::Send; my $to = 'example@ezweb.ne.jp'; my $creator = Email::MIME::MobileJP::Creator->new($to); $creator->body('��瘞𨰜�扼�����艾�卝�卝��?'); $creator->from('from@example.com'); $creator->subject('�喋�喋�卝����'); my $mail = $creator->finalize(); # Email::Send �折��靽~�踺�� my $sender = Email::Send->new({mailer => 'Sendmail'}); $sender->send($mail); ### 瘛颱�塩�𨰜�麄���聦��� �𠺶�怒���㻫�潦���批�嗵�麄�芥�押�埝溶隞塩�𨰜�麄���聦����怒�臭誑銝卝�柴�����怒�踺�䎚�啜�����扼�𨰜������ use utf8; use Email::MIME::MobileJP::Creator; my $to = 'example@ezweb.ne.jp'; my $creator = Email::MIME::MobileJP::Creator->new($to); $creator->from('from@example.com'); $creator->subject('�喋�喋�卝����'); $creator->add_text_part('��瘞𨰜�扼�����艾�卝�卝��?'); $creator->add_part( $photo => { 'fimename' => 'hoge.jpg', 'content_type' => 'image/jpeg', 'encoding' => 'base64', 'name' => 'sample.jpg', }, ); my $mail = $creator->finalize; # Email::Send �折��靽~�踺�� my $sender = Email::Send->new({mailer => 'Sendmail'}); $sender->send($mail); ### Email::MIME::MobileJP::Template �柴���扎�鉝�扎�卝���㻫�踴�潦�� my $mail_maker = Email::MIME::MobileJP::Template->new('Text::Xslate' => {path => ['email_tmpl/']}); my $mail = $mail_maker->render('signup.eml', {token => $token, syntax => 'TTerse'}); my $sender = Email::Send->new({mailer => 'Sendmail'}); $sender->send($mail); �麄�𨬭�𨰜�瓐�瓐�� email\_tmpl/signup.eml �桐葉頨怒�胯��隞乩�卝�柴�具�𨳍�𨳍�� Subject: [Example] �萸�扎�喋�U����! 隞乩�卝�鉝�胯�芥���胯�䜘�� http://example.com/signup/[% token %] �瓐���������喋�𨰜�研�鉝�𨳍���艾�𨳍�㻫�啜��蝪∪�塩�怒�~�潦�怒�㘾��靽~�扼�溻�卝�柴�扼�麄���詻�瓐�嫘�瓐�𨳍�扼�踺�准�� # AUTHOR Tokuhiro Matsuno <tokuhirom AAJKLFJEF@ GMAIL COM> # SEE ALSO # LICENSE Copyright (C) Tokuhiro Matsuno This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.