Letzte Zeile in einem Array finden - #51971 (Allgemeines zu Perl)

cbxk1xg

2005-02-23 03:54

User since
2003-10-20
496 Artikel
BenutzerIn
[default_avatar]

Hallo Freunde der Sonne,

ich würde gerne einen Bug in meinem CMS beheben. Der User hat die Möglichkeit zu bestimmen was vor und hinter jede Zeile geschrieben wird. Also zum Beispiel ein BR oder ein P.

Dummerweise wird auch immer die letzte Zeile mit einbezogen. Das ist natürlich Quark. Denn da wo der Text zuende ist, braucht man kein BR mehr.

Wie finde ich nun raus wann es sich beim Durchgang der Schleife um die letzte Zeile handelt?

Code (perl): (dl )

sub DoBeforeAfter
{
my (@FILE) = @_;
my (&#36retval);
foreach &#36line (@FILE) { &#36retval .= "&#36CONFIG{'before'}&#36line&#36CONFIG{'after'}"; }
chomp( &#36retval );
return &#36retval;
}

\n\n