[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