[Vienna-pm] WG: Trennzeile - das ewig muehsame

Nagy Wilhelm wilhelm.nagy at umweltbundesamt.at
Mon Sep 4 01:52:06 PDT 2006


Ich verwende immer die 'Counter' Methode (A), 

- Leicht zu verstehen
- leicht zu warten

lg
\^/ili

-----Ursprüngliche Nachricht-----
Von: vienna-pm-bounces+wilhelm.nagy=umweltbundesamt.at at pm.org [mailto:vienna-pm-bounces+wilhelm.nagy=umweltbundesamt.at at pm.org] Im Auftrag von Baier Oliver
Gesendet: Montag, 04. September 2006 10:40
An: vienna-pm at pm.org
Betreff: [Vienna-pm] Trennzeile - das ewig muehsame

Hi,

ich habe eine Liste, die mehrere zusammenhaengende Bloecke beinhaltet
und will zwischen jedem Block eine Trennzeile ausgeben; allerdings
nicht in der allerersten Zeile. Da das End-Pattern variabel ist, bin
ich vom Anfangspattern abhaengig und auf Anhieb sind mir mal folgende
haessliche Ansaetze eingefallen:

A)	my $row = 0;
	foreach (sort @out) {
		print "-" x 80 ,"\n" if /Anfangspattern/ && $row++ != 0;
		print;
	}

	Nachteil: Counter mitschleppen

B)	foreach (sort @out) {
		print "-" x 80 ,"\n" if /Anfangspattern/ && $_ !~
$out[0];
		print;
	}

	Nachteil: wiederholtes Pattern matching

C)	my @sorted = sort @out;
	foreach my $i (0 .. $#sorted) {
		print "-" x 80 ,"\n" if $sorted[$i] =~ /Anfangspattern/
&& $i != 0;
		print $sorted[$i];
	}

	Nachteil: extra sortierte Liste


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?

lg
Oliver
_______________________________________________
Vienna-pm mailing list
Vienna-pm at pm.org
http://mail.pm.org/mailman/listinfo/vienna-pm



More information about the Vienna-pm mailing list