[Vienna-pm] Trennzeile - das ewig muehsame

Klaus Johannes Rusch KlausRusch at atmedia.net
Mon Sep 4 01:52:52 PDT 2006


Baier Oliver wrote:

>Eigentlich suche ich ein:
>
>	foreach (sort @out) {
>		print "-" x 80 ,"\n" if /Anfangspattern/ && $_
><nicht_erstes_Element>;
>		print;
>	}
>
>aber das gibt es ja glaub ich nicht auf diese Weise.
>Wie loest ihr diese Trennzeilenprobleme immer?
>  
>
Noch zwei Varianten zur Auswahl:

$notfirst = 0;
foreach (sort @out) {
        print "-" x 80 ,"\n" if /pat/ && $notfirst;
        print;
        $notfirst ||= 1;
}

Oder

@tmp = sort @out;
print shift @tmp;
foreach (@tmp) {
        print "-" x 80 ,"\n" if /pat/;
        print;
}

-- 
Klaus Johannes Rusch
KlausRusch at atmedia.net
http://www.atmedia.net/KlausRusch/



More information about the Vienna-pm mailing list