decode_header.pl 708 Bytes
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
#!/usr/bin/perl -w

# Script mis à votre disposition
# par les gentils membres actifs du Cr@ns
# Vous pouvez l'utiliser, le redistribuer, le modifier à votre convenance.
# Des questions, des suggestions : {nounou,ca}@lists.crans.org
# Licence : WTFPL

# Pour décoder un header mail fourni sur l'entée standard (STDIN)
# (Utilisé par le .procmailrc)

# On importe la fonction qui décode des headers
use Encode qw(decode);

# On déclare que l'encodage des print sera UTF-8
binmode(STDOUT, ":utf8");

# On lit les lignes successivement sur l'entrée standard
foreach $line ( <STDIN> ) {
    # on les décode
    my $decoded = decode('MIME-Header', $line);
    # et on les affiche
    print "$decoded";
}