Net::POP3でメール受信

PerlのNet::POP2モジュールを利用したメール受信のサンプルです。このスクリプトをcronに登録し、定期的にメールボックスを確認させて、何かあったらコマンドを実行。なんて用途に使えます。パスワードも平文でのっけているので、セキュリティ的な注意は必要かと思います。

</p>

<h1>!/usr/bin/env perl</h1>

<p>use Net::POP3;</p>

<p>sub getmail()
{
  my ($server, $user, $passwd, $delete) = @_;
  my @result;
  my $p = Net::POP3-&amp;gt;new($server) or die &amp;quot;Couldn't connect to $server.&amp;quot;;
  $p-&amp;gt;login($user, $passwd);
  foreach $id (keys(%{$p-&amp;gt;list()})) {
    push(@result, @{$p-&amp;gt;get($id)});
    $p-&amp;gt;delete($id) if ($delete);
  }
  $p-&amp;gt;quit;
  return @result;
}</p>

<p>print &amp;amp;getmail('pop.example.com', 'example@example.com', 'mypassword');

投稿者:

dyama

佐世保のシステムエンジニアです。詳しいプロフィールやこのブログについてはこちらをご覧ください。

コメントを残す

メールアドレスが公開されることはありません。

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください