Hi!
Auch hi,
Noch ein kleiner Nachtrag:
Das HTML (oder wie du die Ende-Kennzeichnung auch genannt hast) muß unbedingt am Anfang der Zeile stehen (also keine Einrückungen!) und darf auch keine Leerzeichen dahinter haben! Sonst interprediert Perl alles bis zum Dateiende als Text für den print.
Stimmt.
Übrigens kann man das überall verwenden, wo Strings erlaubt sind, also auch z.B.
&meinefunktion(<<'ENDE','blabla');
Dieser Text wird
an die Funktion
&meinefunktion()
übergeben
ENDECiao,
Mirko
Ich verwende Perl 5.005_02 auf SuSE 6.0 und da läuft folgendes wie Sau:
----------snip---------------
#!/usr/bin/perl -w
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
use lib '.';
use MO qw(:STANDARD);
use MO qw(:VARIABLES);
############
Moegliche Funktionen:
print: header, end_hmtl
sonstige: param, ...
############
CGI zur Erzeugung der Stammdatenübersicht
############
#Labels und sonstige Bezeichnungen
@labels = ("Zurück", "Stammdatenübersicht", "Hilfe", "Kundenstammdaten","Hotelstammdaten", "Reisestammdaten","Mitarbeiter", "...");
$session = param('session');
$port = param('port');
print header;
print_html();
print end_html;
exit(0);
############
#Anzeigen der Stammdatenübersicht
############
sub print_html
{
print <<KOPF;
<HEAD>
<meta http-equiv="expires" content="0">
<TITLE>Stammdatenübersicht</TITLE>
</HEAD>
<BODY bgcolor="#c0c0c0">
<TABLE border="0" cellspacing="1" cellpadding="1" style="FONT-SIZE: x-small">
<TD width="10%"><A href="/cgi-bin/mo/log.cgi?port=$port&session=$session">$labels[0]</A>
<TD width="100">$labels[1]
<TD width="85%" align="right"><A href="/mo/help/MO_Übersicht.html#stammdaten" target="_blank">$labels[2]</A>
</TABLE> <HR>
Bitte gewünschte Funktion durch Mausklick auswählen: <p>
<table width="100%" style="FONT-SIZE: x-small" border rules=cols frame=void>
<tr>
<td width="20%"><b>$labels[3]</b>
<td width="20%"><b>$labels[4]</b>
<td width="20%"><b>$labels[5]</b>
<td width="20%"><b>$labels[6]</b>
<td width="20%"><b>$labels[7]</b>
<td width="20%">
<tr>
<td><A href="/cgi-bin/mo/s_kd.cgi?port=$port&session=$session&maske=2">Kunden-Verwaltung</a>
<td><A href="/cgi-bin/mo/s_ho.cgi?port=$port&session=$session&maske=2">Hotel-Verwaltung</a>
<td>
<td>Mitarbeiterverwaltung
<td>
<tr>
<td><hr>
<td><hr>
<td><hr>
<td><hr>
<td><hr>
<td><hr>
<tr>
<td><A href="/cgi-bin/mo/stamm_abholstellen.cgi?port=$port&session=$session">Abholstellen-Verwaltung</A>
<td><A href="/cgi-bin/mo/stamm_kategorie.cgi?port=$port&session=$session">Kategien-Verwaltung</A>
<td>
<td><A href="/cgi-bin/mo/stamm_taetigkeit.cgi?port=
.....
<td>
</table>
KOPF
} #end sub print_html
---------snap------------
Gruß Jörg