NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.
All the Perl that's Practical to Extract and Report
use Perl Log In
sheriff_p (1577)
Wednesday May 04, 2005
04:04 AM
Filtering non-ASCII characters with procmail and mutt
Almost a year since my last entry, awesome... :-)
So here's a little snippet of my
# Rewrite the subject and sender to remove foreign characters
OLDSUBJECT=`/usr/local/bin/formail -xSubject:`
NEWSUBJECT=`echo $OLDSUBJECT |/usr/bin/tr -cs '\11\12\40-\176' 'Z'`
OLDSENDER=`/usr/local/bin/formail -xFrom:`
NEWSENDER=`echo $OLDSENDER |/usr/bin/tr -cs '\11\12\40-\176' 'Z'`
:0fw
|/usr/local/bin/formail -i "Subject: $NEWSUBJECT"
:0fw
|/usr/local/bin/formail -i "From: $NEWSENDER"
The Fine Print: The following comments are owned by whoever posted them. We are not responsible for them in any way.
help them think they understand.
--Larry Wall
Stories, comments, journals, and other submissions on use Perl; are Copyright 1998-2006, their respective owners.
This won't work. And is a security risk. (Score:1)
andNEWSUBJECT=`echo "$OLDSUBJECT" | tr ...`
NEWFROM=`echo "$OLDFROM" | tr ...`