|
2011/10/19 19:15
超メモ
a.pl
#!/usr/local/bin/perl
use MIME::Entity;
my $b = <<EOM;
Scene I. A Room of State in King Lear's Palace.
[Enter Kent, Gloucester, and Edmund.]
Kent.
I thought the King had more affected the Duke of Albany than
Cornwall.
Glou.
It did always seem so to us; but now, in the division of the
kingdom, it appears not which of the Dukes he values most, for
equalities are so weighed that curiosity in neither can make
choice of either's moiety.
Kent.
Is not this your son, my lord?
Glou.
His breeding, sir, hath been at my charge: I have so often
blush'd to acknowledge him that now I am braz'd to't.
EOM
my $m = MIME::Entity->build(
'To' => 'hoge@localhost',
'Subject' => 'TestMail',
'Encoding' => 'x-myencode',
'Data' => $b
);
print $m->as_string();
→Encodeで、x-myencodeを指定する。
・MIME::Decoder.pm
%DecoderForん所に、 'x-myencode' => 'MIME::Decoder::MyEncode',を追加。
・MIME::Decoder::MyEncode.pm
package MIME::Decoder::MyEncode;
use vars qw(@ISA $VERSION);
use MIME::Decoder;
use MIME::Base64 2.04;
use MIME::Tools qw(debug);
@ISA = qw(MIME::Decoder);
my $EncodeChunkLength = 45;
my $DecodeChunkLength = 32 * 1024;
sub decode_it {
my ($self, $in, $out) = @_;
my $a;
my $nread;
my $buf = '';
while ($nread = $in->read($buf, $EncodeChunkLength)) {
$a = reverse ($buf);
$out->print($a);
}
1;
}
sub encode_it {
my ($self, $in, $out) = @_;
my $encoded;
my $nread;
my $buf = '';
while ($nread = $in->read($buf, $EncodeChunkLength)) {
$encoded = reverse ($buf);
$out->print($encoded);
}
1;
}
1;
これで、a.plを動かせば、本文がオレオレエンコードになる。
このオレオレエンコードを、戻すにはMIME::Parserでなんとかなる。
a2.pl
#!/usr/local/bin/perl
use MIME::Parser;
my $buf=<<EOM;
Content-Type: text/plain
Content-Disposition: inline
Content-Transfer-Encoding: x-myencode
MIME-Version: 1.0
X-Mailer: MIME-tools 5.427 (Entity 5.427)
To: hoge@localhost
Subject: TestMail
calaP s'raeL gniK ni etatS fo mooR A .I enecStneK
].dnumdE dna ,retsecuolG ,tneK retnE[
.euD eht detceffa erom dah gniK eht thguoht I
.awla did tI
.uolG
.llawnroC
naht ynablA fo ekfo noisivid eht ni ,won tub ;su ot os mees sykuD eht fo hcihw ton sraeppa ti ,modgnik
eht giew os era seitilauqe
rof ,tsom seulav eh seeciohc
ekam nac rehtien ni ytisoiruc taht dehs ruoy siht ton sI
.tneK
.yteiom s'rehtie fo eb htah ,ris ,gnideerb siH
.uolG
?drol ym ,noa ot d'hsulb
netfo os evah I :egrahc ym ta ne
.t'ot d'zarb ma I won taht mih egdelwonkc
EOM
my $ps_obj = new MIME::Parser;
my $entity = $ps_obj->parse_data(\$buf) or die;
$entity->bodyhandle->print();
a2.plで、変換された本文を元に戻せる。
|
ニコッとタウン