[Vienna-pm] Trennzeile - das ewig muehsame

[Baier Oliver]

Danke fuer euren Input.

Das erste Element mit print shift rauszuziehen, ist eine nette Idee.
Mal sehn, wieviele Bloecke es pro Liste durchschnittlich werden,
dass sich das sort performancetechnisch auszahlt.

lg
Oliver


> -----Ursprüngliche Nachricht-----
> Von: Klaus Johannes Rusch [mailto:KlausRusch at atmedia.net] 
> Gesendet: Montag, 04. September 2006 10:53
> An: Baier Oliver
> Cc: vienna-pm at pm.org
> Betreff: Re: [Vienna-pm] Trennzeile - das ewig muehsame
> 
> 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/
> 
>