PERLでMIMEヘッダの値を切り出す

戻る 

::::::::::::::
header.dat
::::::::::::::
Return-Path: <alchemia-support-bounces@mercurymockup.com>
Received: from fixing-a-hole.mercurymockup.com ([44.88.202.20] verified)
  by mercurymockup.com (CommuniGate Pro SMTP 5.0.9)
  with SMTP id 743748; Sat, 16 Dec 2006 07:34:17 -0800
Received: from localhost (localhost.localdomain [127.0.0.1])
	by fixing-a-hole.mercurymockup.com (Postfix) with ESMTP id 4381644046;
	Sat, 16 Dec 2006 07:34:17 -0800 (PST)
X-Virus-Scanned: asteroid-new at mercurymockup.com
Received: from fixing-a-hole.mercurymockup.com ([127.0.0.1])
	by localhost (fixing-a-hole.mercurymockup.com [127.0.0.1]) (asteroid-new, port 10024)
	with ESMTP id 9q6P1MQufVGe; Sat, 16 Dec 2006 07:34:14 -0800 (PST)
Received: from columbia.mercurymockup.com (unknown [44.88.202.5])
	by fixing-a-hole.mercurymockup.com (Postfix) with ESMTP id CDB2A44045;
	Sat, 16 Dec 2006 07:34:14 -0800 (PST)
Received: from challenger.mercurymockup.com ([192.168.0.23])
	by columbia.mercurymockup.com (8.12.10/8.12.10) with ESMTP id kBGFYEVM018147;
	Sat, 16 Dec 2006 07:34:14 -0800
Received: from challenger.mercurymockup.com (localhost.localdomain [127.0.0.1])
	by challenger.mercurymockup.com (Postfix) with ESMTP id 8AA275CC08A;
	Sat, 16 Dec 2006 07:34:14 -0800 (PST)
X-Original-To: alchemia-support@challenger.mercurymockup.com
Delivered-To: alchemia-support@challenger.mercurymockup.com
Received: from mercurymockup.com (mercury.mercurymockup.com [44.88.10.25])
	by challenger.mercurymockup.com (Postfix) with ESMTP id 937775CC08A
	for <alchemia-support@challenger.mercurymockup.com>;
	Sat, 16 Dec 2006 07:34:12 -0800 (PST)
Received: from fixing-a-hole.mercurymockup.com ([44.88.202.20] verified)
	by mercurymockup.com (CommuniGate Pro SMTP 5.0.9)
	with SMTP id 743751 for alchemia-support@mercurymockup.com;
	Sat, 16 Dec 2006 07:34:12 -0800
Received: from localhost (localhost.localdomain [127.0.0.1])
	by fixing-a-hole.mercurymockup.com (Postfix) with ESMTP id 7727744048
	for <alchemia-support@mercurymockup.com>;
	Sat, 16 Dec 2006 07:34:12 -0800 (PST)
X-Virus-Scanned: asteroid-new at mercurymockup.com
Received: from fixing-a-hole.mercurymockup.com ([127.0.0.1])
	by localhost (fixing-a-hole.mercurymockup.com [127.0.0.1]) (asteroid-new,
	port 10024)
	with ESMTP id H2gJSB2Vt6xf for <alchemia-support@mercurymockup.com>;
	Sat, 16 Dec 2006 07:34:10 -0800 (PST)
Received: from py-out-1112.gogogal.com (py-out-1112.gogogal.com [64.233.166.183])
	by fixing-a-hole.mercurymockup.com (Postfix) with ESMTP id 6AC8747045
	for <alchemia-support@mercurymockup.com>;
	Sat, 16 Dec 2006 07:34:10 -0800 (PST)
Received: by py-out-1112.gogogal.com with SMTP id p76so777775pyb
	for <alchemia-support@mercurymockup.com>;
	Sat, 16 Dec 2006 07:34:09 -0800 (PST)
DomainKey-Signature: a=rsa-sha1; q=dns; c=nofws; s=beta; d=gscore.com;
	h=received:message-id:date:from:sender:to:subject:cc:in-reply-to:mime-version:content-type:content-transfer-encoding:content-disposition:references:x-gogogal-sender-auth;
	b=YnEuiAc4ub09EaWRbi1VNS65j6j2DTXuZDk6b1CLrqSBsITF6aOumayAx1YE7KnBcfqRJTcEx9yZ12Sz8XWSgTdKmkwhAkd5R5kvLkrwTvzD5u3xmWxNZWfMIUGZGln+AAw3JF6+p5PMBqdbl2uzsE/JhBCef+UvU+vibWRagkE=
Received: by 10.35.89.10 with SMTP id r10mr3872478pyl.1166783749489;
	Sat, 16 Dec 2006 07:34:09 -0800 (PST)
Received: by 10.35.79.16 with HTTP; Sat, 16 Dec 2006 07:34:09 -0800 (PST)
Message-ID: <d4c360db0612160734j49c91d6cg289d76a7a048878b@mail.gscore.com>
Date: Sun, 17 Dec 2006 00:34:09 +0900
From: =?ISO-2022-JP?B?GyRCJTclcyUvJSQlQyVIGyhC?= <info@thinkit.co.jp>
To: "Kotaro Hashire" <oJones@mercurymockup.com>
Subject: =?ISO-2022-JP?B?GyRCIVobKEJUaGlua0lUIFRvZGF5GyRCIVslJCVzJVUlaSROQSpEahsoQg==?=
	=?ISO-2022-JP?B?GyRCJEskKiQxJGtJPjJBJV0lJCVzJUgkSCRPISkhVjhlGyhC?=
	=?ISO-2022-JP?B?GyRCMnkkNyRKJCQkPyRhJE4lJCVzJVUlaTk9Q1skTjQqGyhC?=
	=?ISO-2022-JP?B?GyRCPWohQSVRJUMlMSE8JTglIiVXJWolMSE8JTclZyVzGyhC?=
	=?ISO-2022-JP?B?GyRCRjNGfkpUIUEhVzk5PzchKhsoQg==?=
In-Reply-To: <45841096.8060801@mercurymockup.com>
MIME-Version: 1.0
Content-Type: text/plain; charset=ISO-2022-JP; format=flowed
Content-Transfer-Encoding: 7bit
Content-Disposition: inline
References: <45841096.8060801@mercurymockup.com>
X-Google-Sender-Auth: 3905f1d35d7b752a
Cc: hardriver_support@Indoor.co.jp,
        "stalled-support@convert-soft.co.jp" <stalled-support@convert-soft.co.jp>,
        "alchemia-support.mercurymockup.com" <alchemia-support@mercurymockup.com>
X-BeenThere: alchemia-support@mercurymockup.com
X-Mailman-Version: 2.1.5
Precedence: list
List-Id: alchemia-support.mercurymockup.com
List-Unsubscribe: <https://inet.mercurymockup.com/mailman/listinfo/alchemia-support>,
	<mailto:alchemia-support-request@mercurymockup.com?subject=unsubscribe>
List-Archive: <http://{'listname': 'alchemia-support',
	'hostname': 'inet.mercurymockup.com'}/pipermail/alchemia-support>
List-Post: <mailto:alchemia-support@mercurymockup.com>
List-Help: <mailto:alchemia-support-request@mercurymockup.com?subject=help>
List-Subscribe: <https://inet.mercurymockup.com/mailman/listinfo/alchemia-support>,
	<mailto:alchemia-support-request@mercurymockup.com?subject=subscribe>
Sender: alchemia-support-bounces@mercurymockup.com
Errors-To: alchemia-support-bounces@mercurymockup.com

::::::::::::::
mime-test.pl
::::::::::::::
#!/usr/bin/perl
# $Id: mimi-test.html,v 1.1 2009/06/22 16:12:17 kishi Exp kishi $
use MIME::Parser;
use Jcode;

my $parser = MIME::Parser->new;

my $buf;
while(<STDIN>){
	$buf .= $_;
}
my $entity = $parser->parse_data($buf);

$from = $entity->head->decode->get('from');
$to = $entity->head->get('to');
$subject = $entity->head->decode->get('subject');

print Jcode::convert( $from, 'sjis' ) . "\n";
print Jcode::convert( $to, 'sjis') . "\n";
print Jcode::convert( $subject, 'sjis') . "\n";


■実行結果

$ cat header.dat | ./mime-test.pl
シンクイット <info@thinkit.co.jp>

"Kotaro Hashire" <oJones@mercurymockup.com>

【ThinkIT Today】インフラの選定における評価ポイントとは？「後悔しないためのインフラ構築の勘所〜パッケージアプリケーション導入編〜」更新！

戻る
inserted by FC2 system