[Vienna-pm] Trennzeile - das ewig muehsame

[peter pilsl]

Baier Oliver wrote:
> 
> A)	my $row = 0;
> 	foreach (sort @out) {
> 		print "-" x 80 ,"\n" if /Anfangspattern/ && $row++ != 0;
> 		print;
> 	}
> 
> 	Nachteil: Counter mitschleppen
> 

was ist an einem counter so schlimm?  ein counter löst viele probleme 
schnell und effizient. das problem, dass für ein randelement einer liste 
andere operationen gelten kann man auf zwei arten sehr schnell lösen:

i) counter
ii) die operation (in deinem fall print) explizit für das erste element 
ausführen und dann für die anderen

operation1 (shift @mylist);
foreach (@mylist) { operation2($_)}


lgp