Thread Einfügen eines Wertes in Zeile 3 einer Datei: ...bei einem CMS (12 answers)
Opened by cbxk1xg at 2004-07-03 19:28

cbxk1xg
 2004-07-05 02:06
#3029 #3029
User since
2003-10-20
496 Artikel
BenutzerIn
[default_avatar]
Ja, war ein Schreibfehler.

Ich habe es in der letzten Fassung so gelöst:
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
my $header = <<EOT;
<!-- file info:
template: ------------ $template
last modified: ------- $date (MM.DD.YYYY | HH:MM)
author: -------------- $author
-->
EOT

print "Content-type: text/html\n\n";

 my (@TEMPLATE) = @_;

 foreach $line (@TEMPLATE)
 {
   $line =~ s/\<html/$header\<html/;
   $line =~ s/\<HTML/$header\<HTML/;
...


Ich will den "HTML" Tag nicht case insensitive behandeln, da es falsches HTML wäre. Wenn jemand ein Template anlegt, dann sollte er wenigstens in der Lage sein sich zu entscheiden ob er die Tags groß, oder klein schreibt. Vieleicht kann man die Webdesigner damit ein wenig erziehen. :-)

Obwohl deine Idee auch nicht schlecht ist. Leider habe ich es erst auf den zweiten Blick gesehen, da die Perlsyntax von deinem Posting etwas verunstaltet wurde. Ist das eine $1 hinter dem $PMheader? \n\n

<!--EDIT|cbxk1xg|1088979097-->

View full thread Einfügen eines Wertes in Zeile 3 einer Datei: ...bei einem CMS