[Phys-L] Re: pox ... also known as quoted-printable

[rlamont at POSTOFFICE.PROVIDENCE.EDU (rlamont)]

Is this a variation of perl before swine?

 :-)

Bob at PC

> -----Original Message-----
> From: Forum for Physics Educators [mailto:PHYS-L@list1.ucc.nau.edu] On
Behalf
> Of John Denker
> Sent: Monday, December 13, 2004 4:09 PM
> To: PHYS-L@LISTS.NAU.EDU
> Subject: Re: pox ... also known as quoted-printable
>
> Here's how I deal with the pox situation:
>
> 1) I don't run microsoft software, so I'm not a source of pox.
>
> 2) I can actually run programs on my computer.
>
> Therefore, if I receive a message that suffers from the pox,
> I can decode it.  Here is a perl script that will do the job:
>
> /////////////////////////////////////////////////////
> #!/usr/bin/perl
>
> eval 'exec /usr/local/bin/perl  -S $0 ${1+"$@"}'
>      if 0; # not running under some shell
>
> use MIME::QuotedPrint qw(decode_qp);
>
> while (<>) {
>      print decode_qp($_);
> }
> //////////////////////////////////////////////////////
>
> Another way of skinning the same cat is to use the qprint
> program from John Walker
>    http://www.fourmilab.ch/webtools/qprint/