Re: [PERL] perl begynder

[torben fjerdingstad <sslug@sslug>]

Ulrik Dickow skrev:
> torben fjerdingstad <sslug@sslug> writes:

> > Sample input:
> > Return-Path: <sslug@sslug>
> > Output:
> > sslug@sslug
> 
> Det kan man klare med denne 1-linjers (brudt i 2 da den er lidt >80 tegn):
> 
>    perl -wne \
>       '/^Return-Path: <(\S+-)return-\d+(-\S+)>/i && print "$1unsubscribe$2\n"'

Yaiy! Det er jo genialt. Og det virker på alle liste navne.

> Hvis du vil være sikker på at Perl-kommandoen kun svarer med 1 adresse
> (dvs. exit'er så snart den har fundet det første match), og du også gerne vil
> have det som et lidt pænere script, så prøv i stedet
> 
>    #! /usr/bin/perl -wn
>    if (/^Return-Path: <(\S+)-return-\d+-(\S+)>/i) {
>        print("$1-unsubscribe-$2\n");
>        exit 0;
>    }

Det er bedre, for en digest kan være ret stor at komme igennem.
 
Rigtig mange gange tak. Det kan jeg også bruge på arbejdet.

-- 
torben fjerdingstad        | linux-2.0.35/GNU/gnome-0.30
sslug@sslug        | Show me your unix,
http://www.fjerdingstad.dk |   and I know who you are.