Perl로 IMAP 메시지 전달

Question

일부 메일을 처리해야합니다. 메일 함을 구문 분석하고 첨부 파일 저장, 폴더 및 기타 관리 작업으로 전자 메일 이동과 같은 몇 가지 작업을 수행 할 수있는 스크립트가 이미 구축되어 있습니다. 이메일 중 일부는이 과정에서 불량배로 확인되어 전달되어야합니다. 메시지에는 하나 이상의 첨부 파일이 있거나 없을 수도 있으며 fwd이라는 자체 폴더에 덤프됩니다.

새 이메일 메시지를 작성하여 보낼 수는 있지만 기존 이메일로 전달하거나 답장하는 데 문제가 있습니다. 한 가지 해결책은 데이터베이스 (파트, 본문, 첨부 파일)를 데이터베이스에 저장하고 MIME::Lite으로 새 메시지를 작성하는 것입니다. 그러나 이것은 기껏해야 비효율적입니다.

Net::IMAP::Simple::SSL 및 MIME::Parser으로 이메일을 처리하고 있습니다.

전자 메일을 임시 폴더에 덤프하기 때문에 메시지를 처리하기 위해 PHP 스크립트를 사용하는 것에 완전히 반대하지는 않지만 현재의 Perl 처리기를 사용하여 작업을 실행하는 것을 선호합니다.

이 작업을 완료하는 데 도움이되는 정보가 찾고 있습니다.

Answer 1

message-> copy 및 message-> reply와 같은 프리미티브를 포함하여 메일 메시지를 처리하는 풍부한 (비트 컴플렉스) 모듈 Mail::Box을 CPAN에서 볼 수 있습니다. 문서와 예제를 들어

은, 저자의 웹 사이트는 http://perl.overmeer.net/mailbox/