PerlによるQuoted-Printableデコーダ

転載元

• http://search.luky.org/linux-users.9/msg06210.html

ほそのひでともです。

余談ですが、

  To: linux-users _at_ linux.or.jp
  From: matu <matu _at_ mat.ath.cx>
  Subject: [linux-users:96253] Re: quoted-printable(Re: RedHat8 jp)
  Date: Tue, 12 Nov 2002 23:42:42 +0900

  > ちなみに私は MH 使いです。
  > quoted-printableなメールががきたら perl で書いたごく簡単な
  > スクリプトで見ています。 s/=(..)/pack("C",hex $1)/eg;
  > こんな感じので簡単に変換できるので。

MIME::QuotedPrintというのもあります。
MIME-Base64に含まれています。入手はCPANで。

  use MIME::QuotedPrint;

  $encoded = encode_qp($decoded);
  $decoded = decode_qp($encoded);

みたいな感じで使えます。ワンライナーなら

  $ perl -MMIME::QuotedPrint -e 'while (<STDIN>) { print(decode_qp($_)); };'

といったところでしょうか。

--
ほそのひでとも

→ おなじことをRubyで