Developing.ru

Код: Выделить всё

#!/usr/bin/perl

use strict;
use Email::Folder;
use Email::FolderType::Net;
use Email::MIME;
use Email::MIME::Attachment::Stripper;

my $data_from_file;

my $login = 'xxxx';
my $pswd = 'xxxx';
my $popserver = 'pop.xxxxx.ru';

my $folder = Email::Folder->new("pop://$login:$pswd\@$popserver:110/");

while (my $email = $folder->next_message) {
  my $stripper = Email::MIME::Attachment::Stripper->new(Email::MIME->new($email->as_string));

  # my Email::MIME $msg = $stripper->message;
  # $msg->header('From')
  # $msg->header('Subject') 

  my @attachments = $stripper->attachments;
  foreach my $hash (@attachments) {
    # $hash->{'filename'}
    # $hash->{'content_type'}
    $data_from_file = $hash->{'payload'};
  }
}