これは、メール本文に色々書込むPerlスクリプトのメモ。 FromやToの書き換えはよく見るけど本文の書き換えはあまり見なかったので書いた。 毎度おなじみの MIME-Tools を使ってます。 ファイル名は sign.pl とでもしましょうか。 sign.pl #!/usr/local/bin/perl use MIME::Parser; my $parseObj = MIME::Parser->new(); my $entity; my $body,$bodyHandle; my $lines; $parseObj->output_dir('./'); $entity = $parseObj->parse(\*STDIN); $body = $entity->is_multipart ? $entity->parts(0) : $entity; $bodyHandle = $body-