On Thu, Jan 13, 2011 at 05:56:05PM -0600, Will Fiveash wrote: > I've been wanting to filter a message that is in quoted-printable format > to and convert it plain text. Anyone know of a way I can do this that > is suitable for a Unix-style filter? >
I believe this should do it (untested):
-=-=-=-
#!/usr/bin/perl
use strict;
use warnings;
# Either of these should work, AFAIK, but you may need to get them...
#use MIME::QuotedPrint;
use MIME::QuotedPrint::Perl;
my @input = <STDIN>;
my $input = join("", @input);
print decode_qp($input);
-=-=-=-
--
Derek D. Martin http://www.pizzashack.org/ GPG Key ID: 0xDFBEAD02
-=-=-=-=-
This message is posted from an invalid address. Replying to it will result in
undeliverable mail due to spam prevention. Sorry for the inconvenience.
pgpe6hh4zFzKE.pgp
Description: PGP signature
