sslug-teknik team mailing list archive

[Peter Makholm <peter@xxxxxxxxxxx>]

Peter Makholm <peter@xxxxxxxxxxx> writes:

> Det ved jeg nu ikke. Hvis du skal have hjælp til ovenstående, men selv
> kan bikse et perlscript sammen, hvad vil du så helst skulle
> vedligeholde op 3 måneder?

Hvis man ikke er stærk i regulære udtryk er dette måske lettere at
vedligeholde?


    $in = 0;
    while(<>) {
        $in = 0 if /^\w/;
        $in = 1 if /QLogic/;

        print if not $in;
    }

Det sletter selvfølgelig alle QLogic-afsnit.

//Makholm