[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