=encoding euc-jp =head1 ̾Á° Net::SMTP - SMTP(Simple Mail Transfer Protocol)¥¯¥é¥¤¥¢¥ó¥È =head1 ³µÍ× use Net::SMTP; # ¥³¥ó¥¹¥È¥é¥¯¥¿ $smtp = Net::SMTP->new('mailhost'); $smtp = Net::SMTP->new('mailhost', Timeout => 60); =head1 ÀâÌÀ ¤³¤Î¥â¥¸¥å¡¼¥ë¤ÏSMTP¤ª¤è¤ÓESMTP¤Ø¤Î¥¯¥é¥¤¥¢¥ó¥È¡¦¥¤¥ó¥¿¥Õ¥§¡¼¥¹¤ò¼ÂÁõ¤·¡¢ Perl5¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¤¬SMTP¥µ¡¼¥Ð¡¼¤ÈÄÌ¿®¤¹¤ë¤³¤È¤ò²Äǽ¤Ë¤·¤Þ¤¹¡£ ¤³¤Î¥É¥­¥å¥á¥ó¥È¤Ï¡¢ÆɼԤ¬RFC821¤Çµ­½Ò¤µ¤ì¤Æ¤¤¤ëSMTP¥×¥í¥È¥³¥ë¤Î³µÇ°¤Ë ÀºÄ̤·¤Æ¤¤¤ë¤â¤Î¤È¤·¤Þ¤¹¡£ ¿·¤·¤¤Net::SMTP¥ª¥Ö¥¸¥§¥¯¥È¤ÏI¥á¥½¥Ã¥É¤Ë¤è¤Ã¤Æºî¤é¤ì¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£ °ìÅÙºîÀ®¤¹¤ì¤Ð¡¢¤³¤Î¥ª¥Ö¥¸¥§¥¯¥È¤òÄ̤·¤Æ¤¹¤Ù¤Æ¤ÎSMTP¥³¥Þ¥ó¥É¤Ë¥¢¥¯¥»¥¹¤¹¤ë ¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£ Net::SMTP¥¯¥é¥¹¤ÏNet::Cmd¤ÈIO::Socket::INET¤Î¥µ¥Ö¥¯¥é¥¹¤Ç¤¹¡£ =head1 »ÈÍÑÎã ¤³¤ÎÎã¤Ïmailhost¤È¤¤¤¦SMTP¥µ¡¼¥Ð¤Î¥á¡¼¥ë¡¦¥É¥á¥¤¥ó̾¤òɽ¼¨¤·¤Þ¤¹: #!/usr/local/bin/perl -w use Net::SMTP; $smtp = Net::SMTP->new('mailhost'); print $smtp->domain,"\n"; $smtp->quit; ¤³¤ì¤Ïmailhost¤È¤¤¤¦Ì¾Á°¤ÎSMTP¥µ¡¼¥Ð¤Ë¤¢¤ëpostmaster¤Ë¾®¤µ¤Ê¥á¥Ã¥»¡¼¥¸¤ò Á÷¿®¤·¤Þ¤¹: #!/usr/local/bin/perl -w use Net::SMTP; $smtp = Net::SMTP->new('mailhost'); $smtp->mail($ENV{USER}); $smtp->to('postmaster'); $smtp->data(); $smtp->datasend("To: postmaster\n"); $smtp->datasend("\n"); $smtp->datasend("A simple test message\n"); $smtp->dataend(); $smtp->quit; =head1 ¥³¥ó¥¹¥È¥é¥¯¥¿ =over 4 =item new Net::SMTP [ HOST, ] [ OPTIONS ] ¤³¤ì¤¬¿·¤·¤¤Net::SMTP¥ª¥Ö¥¸¥§¥¯¥È¤Î¥³¥ó¥¹¥È¥é¥¯¥¿¤Ç¤¹¡£C¤Ï SMTPÀܳ¤·¤è¤¦¤È¤¹¤ë¥ê¥â¡¼¥È¥Û¥¹¥È¤Î̾Á°¤Ç¤¹¡£ C¤¬»ØÄꤵ¤ì¤Ê¤«¤Ã¤¿¾ì¹ç¤Ë¤Ï¡¢C<:config>¤Ç»ØÄꤵ¤ì¤¿ C¤¬»È¤ï¤ì¤Þ¤¹¡£ C¤Ï¥­¡¼¤ÈÃͤÎÁȤȤ¤¤¦¥Ï¥Ã¥·¥å¤Î·Á¼°¤ÇÅϤµ¤ì¤Þ¤¹¡£ »ØÄê¤Ç¤­¤ë¥ª¥×¥·¥ç¥ó¤Ï°Ê²¼¤ÎÄ̤ê¤Ç¤¹: B - SMTP¤Ï¤¢¤Ê¤¿¼«¿È¤Ç¤¢¤ë¤³¤È¤ò¼±Ê̤¹¤ë¤³¤È¤òɬÍפȤ·¤Þ¤¹¡£ ¤³¤Î¥ª¥×¥·¥ç¥ó¤Ï¤¢¤Ê¤¿¤Î¥á¡¼¥ë¡¦¥É¥á¥¤¥ó¤È¤·¤ÆÅϤ¹Ê¸»úÎó¤ò»ØÄꤷ¤Þ¤¹¡£ Í¿¤¨¤é¤ì¤Ê¤±¤ì¤Ð²óÅú¤¬¼èÆÀ¤µ¤ì¤Þ¤¹¡£ B ¤È B - ¤³¤ì¤é¤Î¥Ñ¥é¥á¡¼¥¿¤Ï¡¢¥½¥±¥Ã¥È¤ò ¥í¡¼¥«¥ë¥Ý¡¼¥È¤Ë¥Ð¥¤¥ó¥É¤¹¤ë¤³¤È¤ò²Äǽ¤Ë¤¹¤ë¤¿¤áIO::Socket¤Ë ľÀÜÅϤµ¤ì¤Þ¤¹¡£ B - SMTP¥µ¡¼¥Ð¡¼¤«¤é¤Î±þÅú¤òÂԤġ¢ÉÃñ°Ì¤Ç¤ÎºÇÂç»þ´Ö (¥Ç¥Õ¥©¥ë¥È:120) B - ¥Ç¥Ð¥Ã¥°¾ðÊó¤òÍøÍѤǤ­¤ë¤è¤¦¤Ë¤·¤Þ¤¹ Îã: $smtp = Net::SMTP->new('mailhost', Hello => 'my.mail.domain' Timeout => 30, Debug => 1, ); =back =head1 ¥á¥½¥Ã¥É Æä˵­½Ò¤¬¤Ê¤±¤ì¤Ð¡¢Á´¤Æ¤Î¥á¥½¥Ã¥É¤ÏI¤Þ¤¿¤ÏI¤òÊÖ¤·¤Þ¤¹¡£ I¤¬½èÍý¤¬À®¸ù¤·¤¿¤³¤È¤ò°ÕÌ£¤·¤Þ¤¹¡£¥á¥½¥Ã¥É¤¬ÃͤòÊÖ¤¹¤È Àë¸À¤·¤Æ¤¤¤ë¤È¤­¤Ë¤Ï¡¢¼ºÇԤǤÏI¤Þ¤¿¤Ï¶õ¥ê¥¹¥È¤òÊÖ¤·¤Þ¤¹¡£ =over 4 =item banner () ºÇ½é¤ËÀܳ¤¬³ÎΩ¤µ¤ì¤¿¤È¤­¡¢¥µ¡¼¥Ð¡¼¤¬¤Ä¤±¤Æ±þÅú¤¹¤ë¥Ð¥Ê¡¼¥á¥Ã¥»¡¼¥¸¤ò ÊÖ¤·¤Þ¤¹¡£ =item domain () ÀܳÃæ¤Ë¥ê¥â¡¼¥ÈSMTP¥µ¡¼¥Ð¡¼¤¬¼«Ê¬¤Ç¼±Ê̤¹¤ë¥É¥á¥¤¥ó¤òÊÖ¤·¤Þ¤¹¡£ =item hello ( DOMAIN ) »ÈÍѤ·¤Æ¤¤¤ë¥á¡¼¥ë¡¦¥É¥á¥¤¥ó¤òEHLO¥³¥Þ¥ó¥É¡ÊEHLO¤¬¤À¤á¤Ê¾ì¹ç¤Ë¤ÏHELO¡Ë¤ò »È¤Ã¤Æ¡¢¥ê¥â¡¼¥È¥µ¡¼¥Ð¡¼¤ËÅÁ¤¨¤Þ¤¹¡£¤³¤Î¥á¥½¥Ã¥É¤ÏNet::SMTP¥ª¥Ö¥¸¥§¥¯¥È¤¬ ºîÀ®¤µ¤ì¤¿»þÅÀ¤Ç¼«Æ°Åª¤Ë¸Æ¤Ó½Ð¤µ¤ì¤ë¤Î¤Ç¡¢¥æ¡¼¥¶¤ÏÄ̾¤³¤ì¤ò¤¢¤¨¤Æ ¸Æ¤Ó½Ð¤¹É¬ÍפϤ¢¤ê¤Þ¤»¤ó¡£ =item etrn ( DOMAIN ) »ØÄꤵ¤ì¤¿DOMAIN¤Î¤¿¤á¤Î¥­¥å¡¼¤Î¼Â¹Ô¤òÍ׵ᤷ¤Þ¤¹¡£ =item auth ( USERNAME, PASSWORD ) SASLǧ¾Ú¤ò»î¤ß¤Þ¤¹¡£ =item mail ( ADDRESS [, OPTIONS] ) =item send ( ADDRESS ) =item send_or_mail ( ADDRESS ) =item send_and_mail ( ADDRESS ) Âбþ¤¹¤ë¥³¥Þ¥ó¥É¤òMAIL¡¢SEND¡¢SOML¡¢SAML¥µ¡¼¥Ð¡¼¤ØÁ÷¿®¤·¤Þ¤¹¡£C