Question

我有一个PHP脚本，用于分隔电子邮件的标题和文本。我想将它转换为Perl脚本，以便将电子邮件作为用户的输入文件。以下是PHP脚本：

#!/usr/bin/php
<?php  
//debug  
#ini_set ("display_errors", "1");  
#error_reporting(E_ALL);  

//include email parser  
require_once('/path/to/class/rfc822_addresses.php');  
require_once('/path/to/class/mime_parser.php');  

// read email in from stdin  
$fd = fopen(ARGV[0], "r");  
$email = "";  
while (!feof($fd)) {  
    $email .= fread($fd, 1024);  
}  
fclose($fd);  

//create the email parser class  
$mime=new mime_parser_class;  
$mime->ignore_syntax_errors = 1;  
$parameters=array(  
    'Data'=>$email,  
);  

$mime->Decode($parameters, $decoded);  

//---------------------- GET EMAIL HEADER INFO -----------------------//  

//get the name and email of the sender  
$fromName = $decoded[0]['ExtractedAddresses']['from:'][0]['name'];  
$fromEmail = $decoded[0]['ExtractedAddresses']['from:'][0]['address'];  

//get the name and email of the recipient  
$toEmail = $decoded[0]['ExtractedAddresses']['to:'][0]['address'];  
$toName = $decoded[0]['ExtractedAddresses']['to:'][0]['name'];  

//get the subject  
$subject = $decoded[0]['Headers']['subject:'];  

$removeChars = array('<','>');  

//get the message id  
$messageID = str_replace($removeChars,'',$decoded[0]['Headers']['message-id:']);  

//get the reply id  
$replyToID = str_replace($removeChars,'',$decoded[0]['Headers']['in-reply-to:']);  

//---------------------- FIND THE BODY -----------------------//  

//get the message body  
if(substr($decoded[0]['Headers']['content-type:'],0,strlen('text/plain')) == 'text/plain' && isset($decoded[0]['Body'])){  

    $body = $decoded[0]['Body'];  

} elseif(substr($decoded[0]['Parts'][0]['Headers']['content-type:'],0,strlen('text/plain')) == 'text/plain' && isset($decoded[0]['Parts'][0]['Body'])) {  

    $body = $decoded[0]['Parts'][0]['Body'];  

} elseif(substr($decoded[0]['Parts'][0]['Parts'][0]['Headers']['content-type:'],0,strlen('text/plain')) == 'text/plain' && isset($decoded[0]['Parts'][0]['Parts'][0]['Body'])) {  

    $body = $decoded[0]['Parts'][0]['Parts'][0]['Body'];  

}  

//print out our data  
echo " 

Message ID: $messageID 

Reply ID: $replyToID 

Subject: $subject 

To: $toName $toEmail 

From: $fromName $fromEmail 

Body: $body 

";  

//show all the decoded email info  
print_r($decoded);

我只需要知道应该做些什么更改才能让它作为Perl脚本运行？

Answer 1

对于处理电子邮件和Perl的几乎任何事情，您可能需要Email::Simple。我认为这与PHP脚本的作用很接近（尽管在PHP中必须有更好的方法）。一旦你创建了Email :: Simple对象，你只需要问你想要的部分而不考虑它是如何提取它们的：

use Email::Simple;

my $text = ...;
my $email = Email::Simple->new( $text );

my( $body ) = $email->body;
my( $messageID, $replyToID, $subject, $to, $from ) = 
        map { scalar $email->header($_) || undef } qw(
            message-id
            reply-to
            subject
            to
            from
            );


print <<"HERE";
Message ID: $messageID 
Reply ID: $replyToID 
Subject: $subject 
To: $to 
From: $from

Body: $body
HERE

对于MIME部分，还有Email::MIME。您应该能够从文档中的示例中找出它。我不知道你为什么要打印它，因为它可能是图像，电影，二进制PDF和其他会搞砸你终端的东西。

祝你好运，:)）

对PHP脚本进行更改以作为Perl脚本运行

1 个答案: