0

Perl を使用してメッセージを読み、添付ファイルを探して保存しています。添付ファイルは常にバイナリ PDF ドキュメントであり、複数の添付ファイルが存在することはありません。件名を読み、添付ファイル (存在する場合) を確認して保存し、メッセージを一時保管用のフォルダーにコピーする必要があります。

読み取り、印刷、コピー機能はすべて動作します。MIME::Parser (MIME::Tools がインストールされています) でさまざまなシナリオを試しましたが、空白のファイルまたは 1 文字または 2 文字のファイルが表示されます。また、盲目的に .pdf に名前を変更するのではなく、ファイル拡張子を決定/設定する方法も知りたいです。

#!/usr/bin/perl


use Net::IMAP::Simple::SSL;
use Email::Simple;
use MIME::Parser;

print "Content-type: text/html\n\n";

$server = new Net::IMAP::Simple::SSL('xxx');
$server->login('xxx','xxx');

my $folder='inbox';

my ($unseen, $recent, $total) = $server->status($folder);
my $newm = $server->select('INBOX');

my $tmp=($total-9); #limit for testing

my $outputdir = "./temp";
my $parser = new MIME::Parser;
$parser->output_dir($outputdir);


for (my $i = $tmp; $i <= $total; $i++) {

        if ($server->seen($i)) {
        print "Message #$i has been seen before...<br />";
        } else {

        my $es=Email::Simple->new(join '', @{$server->top($i)});
        print $es->header('Subject')." on ";
        print $es->header('Date')."<br />";
        print "You've just seen message #$i<br />" if $server->see($i)."<br />";
        $msg = $server->get($i);
        $parser->parse_data($msg);
        $server->copy($i,'dump');

        }

    }

 $server->quit();

 exit;

エラー

parse_data: 間違った引数参照タイプ: Net::IMAP::Simple::_message at mailextract.pl 行 x

4

2 に答える 2

1

なぜ2つの異なるパーサーを使用しているのかわかりません...

my $entity = $parser->parse_data($message);
my $from = $entity->head->get('From');
my $subject = $entity->head->get('Subject');
my $timestamp = $entity->head->get('Date');

for my $part ($entity->parts()) {
  if ( $part->mime_type eq 'application/pdf' ) { ### Few different types in use, see what your
                                                 ###  messages get sent with
    my $filename = $part->bodyhandle->path;
    ...
    ### Do whatever
  }
}

編集:そして、解析する正しいもの、代わりに Net::IMAP::Simple::_message をフィードしていないため、エラーが発生しています:

parse_data データ

Instance method. Parse a MIME message that's already in core. This internally creates an "in memory" filehandle on a Perl scalar value

PerlIO の使用

You may supply the DATA in any of a number of ways...

    A scalar which holds the message. A reference to this scalar will be used internally.

    A ref to a scalar which holds the message. This reference will be used internally.

    DEPRECATED

    A ref to an array of scalars. The array is internally concatenated into a temporary string, and a reference to the new

文字列は内部で使用されます。

    It is much more efficient to pass in a scalar reference, so please consider refactoring your code to use that interface instead.

絶対に配列を渡す必要がある場合は、呼び出しコードで IO::ScalarArray を使用してファイルハンドルを生成し、そのファイルハンドルを parse() に渡す方がよい場合があります。

試してみてください$parser->parse($server->getfh($i))。

于 2012-10-11T20:45:48.583 に答える
0 
#!/usr/bin/perl

use Net::IMAP::Simple::SSL;
use MIME::Parser;

print "Content-type: text/html\n\n";

$server = new Net::IMAP::Simple::SSL('xxx');
$server->login('xxx','xxx');


my $newm=0;
   $newm = $server->select('INBOX');

if ($newm==0) {
  $server->quit();
  print "No New Messages.";
  exit;
  }

my $outputdir = "./temp";
my $parser = new MIME::Parser;
$parser->output_dir($outputdir);


for (my $i = 1; $i <= $newm; $i++) {

  my $entity = $parser->parse($server->getfh($i));
  my $from = $entity->head->get('From');
  my $subject = $entity->head->get('Subject');
  my $timestamp = $entity->head->get('Date');

  print "#$i $from / $subject / $timestamp<br />";

  for my $part ($entity->parts()) {
    print " / ".$part->mime_type;
    if ( $part->mime_type eq 'application/octet-stream' || $part->mime_type eq 'application/pdf' ) {
      my $filename = $part->bodyhandle->path;
      print " / $filename";
      }
    print "<br />";
    }
  $server->copy($i,'dump');
  $server->delete($i);
  }
$server->quit();
于 2012-10-12T11:40:21.193 に答える