nicht angemeldet
Header definieren
Hallo zusammen,
Wie kann ich einen Header (HTML Zeilen, die ich überall wieder einfügen kann) in Perl definieren ?
Gruß
Torwächter
-
Hi,
Wie kann ich einen Header (HTML Zeilen, die ich überall wieder einfügen kann) in Perl definieren ?
Was jetzt ? eine Header oder HTML Zeilen überall einfügen ?
header : print "Content-type:text/html\n\n";
html Zeilen, dieman überall einfügen kann:die html zeilen werden hier eingefügt:
&htmlzeilen;
und hier
&htmlzeilen;
und hier auch
&htmzeilen;
sub htmlzeilen {
print "<html><head><title></title></head><body>\n";
print "Hallo\n";
print "</body>\n";
print "</html>\n";
}-
Das zweite war das richtige, dachte nur man müsste sowas wie return true angeben. Vielen Dank
Hi,
Wie kann ich einen Header (HTML Zeilen, die ich überall wieder einfügen kann) in Perl definieren ?
Was jetzt ? eine Header oder HTML Zeilen überall einfügen ?
header : print "Content-type:text/html\n\n";
html Zeilen, dieman überall einfügen kann:die html zeilen werden hier eingefügt:
&htmlzeilen;
und hier
&htmlzeilen;
und hier auch
&htmzeilen;
sub htmlzeilen {
print "<html><head><title></title></head><body>\n";
print "Hallo\n";
print "</body>\n";
print "</html>\n";
} -
Hi auch,
und hier auch
&htmzeilen;
äh, nicht wirklich.
sub htmlzeilen {
print "<html><head><title></title></head><body>\n";
print "Hallo\n";
print "</body>\n";
print "</html>\n";
}Das erzeugt ein vollständiges HTML-Dokument.
In was genau möchtest Du das beliebig oft einfügen?
Viele Grüße
Michael-
Hi,
und hier auch
&htmzeilen;
äh, nicht wirklich.
sub htmlzeilen {
print "<html><head><title></title></head><body>\n";
print "Hallo\n";
print "</body>\n";
print "</html>\n";
}Das erzeugt ein vollständiges HTML-Dokument.
Ja, das weis ich. Ich wollte damit nur zeigen, daß man es beliebig oft einfügen kann.
-
Also ich wollte einen Kopf und einen Fuss definieren.
Kopf = "<html><body>...";
Fuss = "...</body></html>";...
Aufruf >Kopf<
Text Text Text
Aufruf >Fuss<Aufruf >Kopf<
andererText andererText andererText
Aufruf >Fuss<Ich habe es jetzt aber so gemacht:
$aTeil = "Texta";
$bTeil = "Textb";
$cTeil = "Textc";
html();sub html
{<html><body>
$aTeil
blabla
$bTeil
tata
$cTeil
</body>
</html>}
Ich hoffe daran ist nichts auszusetzten.
Viele Grüße
Torwächter-
hi!
Ich habe es jetzt aber so gemacht:
[...]
Ich hoffe daran ist nichts auszusetzten.
Du meinst abgesehen davon, dass das Programm syntaktisch falsch ist,
und es schwachsinnig ist, Parameter für eine Funktion als globale
Variablen zu übergeben?Anscheinend weißt du selbst nicht so genau, was du willst. Oder du
kannst dein Problem nicht klar rüberbringen. Wenn du einen Text hast,
den du an mehreren Stellen einfügen willst, dann speicherst du den
eben in einer Variable und gibst diese an mehreren Stellen wieder aus:=== cut ===
my $var = "<!-- häufig verwendeter HTML-Code -->";
print "<html><head>...</head><body>$var<..>$var</body></html>";
=== cut ===Was das allerdings als HTML-Header für einen Sinn machen soll, ist
mir schleierhaft. Der kommt doch sowieso nur ein einziges Mal in
jeder HTML-Datei vor. Und das Perl-Skript gibt ja vermutlich -- wenn
es als CGI läuft -- sowieso nur ein einziges HTML-File aus.bye, Frank!
-
Leider nicht ganz, das Script gibt ca. 15 verschiedene Seiten (gleiches Aussehen, aber verschiedener Inhalt) aus. Daher wollte ich eine Art Templates generieren, welche mir immer den gleichen Kopf (<html><body>...) und den gleichen Fuss (..</body></html>) übergeben. Ich verstehe jetzt nicht, was zwischen Deiner Version (my $var="") und meiner $var="" der Unterschied sein soll.
Viele Grüße
Torwächter-
ach jetzt weiß ich was du meinst. Leider ist diese Version nicht machbar:
Ich muss über das sub hinaus die Variable behalten.Viele Grüße
Torwächter
-
-
-
-
-
-