Volker Englisch wrote:
> Ich bin zugegebenerweise noch nicht so ganz sattelfest in perl. Um eine
> dynamische Web-Seite auszugeben, starte ich das Script wie folgt:
>
> | #!/usr/bin/perl -w
Würd' ich mir nochmal überlegen. Du willst _nicht_ *alle* Warnungen
ausgeben, sondern nur die, welche Du selbst erzeugst. “-w” ist nicht
kontextsensitiv; ”use warnings;” schon. Siehe “perldoc warnings”.
Auch fe lt hier “use strict;”, um die meisten Programmier(er)fehler von
vornherein auszuschliessen.
> |
> | use CGI -no_xhtml;
Würd' ich mir auch nochmal überlegen. CGI (mit Perl) ist Vergangenheit,
davon zeugt auch der Zustand dieser Gruppe.
> | my $cgi_obj = new CGI;
> | print $cgi_obj->header( -type=>'text/html',
> | -expires=>'+1h');
> | print $cgi_obj->start_html( -title=>'XXXXXXXX');
>
> Die Ausgabe passt auch, nur: Im Header erscheint keine Charset-Angabe.
>
> Nach mehreren Stunden Googlen habe ich auch dort nichts
> richtungsweisendes entdecken können. Auch in den Beschreibungen zu CGI
> fand ich keinen passenden Parameter.
>
> Vielleicht habt Ihr einen "Wink mit dem Zaunpfahl": Wie gebe ich im
> Header das Charset ISO-8859-1 (sic!) aus?
Keine Ahnung, was Du fhcsal machst (und keine Zeit, die unnötigen
Zitatzeichen zu entfernen, um Deinen Code auszuprobieren).
––––––
$ perl -e 'use strict; use warnings; use CGI -no_xhtml;
print CGI->new->header(-type => "text/html");'
Content-Type: text/html; charset=ISO-8859-1
$ perl -e 'use strict; use warnings; use CGI("no_xhtml");
print CGI->new->header(-type => "text/html; charset=UTF-8");'
Content-Type: text/html; charset=UTF-8
$ perl -e 'use strict; use warnings; use CGI -no_xhtml; my $cgi = new CGI;
print $cgi->header(-type => "text/html");'
Content-Type: text/html; charset=ISO-8859-1
$ perl -e 'use strict; use warnings; use CGI -no_xhtml; my $cgi = new CGI;
print $cgi->header(-type => "text/html; charset=UTF-8");'
Content-Type: text/html; charset=UTF-8
$ perl --version | head -n 2
This is perl 5, version 14, subversion 2 (v5.14.2) built for i486-linux-gnu-
thread-multi-64int
––––––
Siehe “perldoc CGI” oder “man 3perl CGI”.
HTH
--
PointedEars
Twitter: @PointedEars2
Please do not Cc: me. / Bitte keine Kopien per E-Mail.