linux-l: procmail note (was: procmail funktioniert nicht!?)

[Steffen Dettmer]

* JSC wrote on Sun, Feb 11, 2001 at 20:44 +0100:
> jetzt nutze ich:
> | /usr/bin/perl -ne 'BEGIN{$body=0;}$body=1 if(/^$/);s/^From />From / if($body);print;' >> BeLUG.mhonarc/`/bin/date "+BeLUG.%Y_%m"`


| /usr/bin/perl -pne '/^$/&&($b=1);$b||s/^(From )/>$1/;' >> BeLUG.mhonarc/`/bin/date "+BeLUG.%Y_%m"`

> btw: Jens?! ich brauche eine kuerzere version dieses scripts.
> passt nicht in eine 80 zeichen zeile und ist somit ziemlich
> haesslich ;-)

kürzer fällt mir nicht ein. "/usr/bin/perl" und 
"BeLUG.mhonarc/`/bin/date "+BeLUG.%Y_%m"`" sind Konstanten und
verbrauchen schon fast die 80 Zeichen. Sorry, da kann man wohl
wenig machen. Aber mit PATH= setzen spart man zu:

| perl -pne '/^$/&&($b=1);$b||s/^(From )/>$1/;' >> BeLUG.mhonarc/`date "+BeLUG.%Y_%m"`

und noch mehr mit:

FOLDER=BeLUG.mhonarc/`date "+BeLUG.%Y_%m"`
| perl -pne '/^$/&&($b=1);$b||s/^(From )/>$1/;' >> $FOLDER

sind dann aber zwei Zeilen...

oki,

Steffen

-- 
Dieses Schreiben wurde maschinell erstellt,
es trägt daher weder Unterschrift noch Siegel.