linux-l: Re: regexp

[Ralf Cirksena]

Rolf Buenning wrote in <20000822090620.A185 at rolf-buenning.myfqdn.de>:

Hi Rolf,

> Beispiel Juli
> soll liefern 17.07. und alle folgenden bis 31.07.
> 1. Ziffer [1-3]
> 2. Ziffer [0-9]  wegen 20., 21. ....
> Also ^[1-3][0-9]\.07\.
> Das liefert aber _auch_ 10.7....16.07. :(

Ja sicher ;-) Was ist mit:

#!/usr/local/bin/perl

$druck=0;
$startexp="^17\.07";
$endexp="^20\.07";

while (<STDIN>) {
        if (/$startexp/) { 
                $druck=1;
        }
        if (/$endexp/) {
                $druck=0;
        }
        if ($druck == 1) {
                print;
        }
}

das Ding liefert für eine Reihe vom 1.07. bis 23.07.:

17.07.
18.07.
19.07.

-- 
Ralf Cirksena <r-c at gmx.net> powered by Linux
PGP-key on request: mail to me, subject: get pgp key