sslug-teknik team mailing list archive

[Anders Melchiorsen <c960452@xxxxxxxxxxxxxx>]

Jacob Sparre Andersen <sparre@xxxxxx> skrev den 17-Oct-01:

>    perl -pe 'use strict; use locale;
> s/[=][?]iso-8859-1[?]Q[?][=](.*)[?][=]/$1/i; s/=E6/æ/gi;
> s/=F8/ø/gi; s/=E5/å/gi'

Jeg bruger en Bash funktion som følger:

demime() { echo "$@" | perl -e 'use MIME::QuotedPrint; $_=<STDIN>; if (/.*\?Q\?(.*)/) {$_ = decode_qp($1)} ; print $_'; }


Den virker heller ikke helt, men jeg har glemt hvad problemet er....


Anders.