Mein erstes CGI-Skript: Ein Grund zum Feiern (Perl/CGI)

[thread]288[/thread]

Mein erstes CGI-Skript: Ein Grund zum Feiern

Crian

2004-06-10 06:05

User since
2003-08-04
5872 Artikel
ModeratorIn

Ha!

Ich habe gerade mein erstes CGI-Skript eingegeben und laufen lassen.

(Soweit ist der Web-Server also schon...)

*freu*

Es ist nur das erste dumme Beispiel aus dem Buch "CGI-Programmierung mit Perl" von Scott Guelich et. al. (O'Reilly), aber was solls... ;)

Hier mein leicht abgewandeltes Script:

Code: (dl )

#!/usr/bin/perl -wT

use strict;

print <<HTML_ENDE;
Content-type: text/html

<html>
<head>
    <title>&Uuml;ber diesen Server</title>
</head>

<body>
    <h1>&Uuml;ber diesen Server</h1>
    <hr />
    <pre>
  Servername:                $ENV{SERVER_NAME}
  Portnummer:                $ENV{SERVER_PORT}
  Verwendete Serversoftware: $ENV{SERVER_SOFTWARE}
  Serverprotokoll:           $ENV{SERVER_PROTOCOL}
  CGI-Version:               $ENV{GATEWAY_INTERFACE}
</pre>
    <hr />
</body>
</html>
HTML_ENDE

Ja ja ich weiß, noch kein use CGI ... etc. pp. aber immerhin - es lief auf Anhieb :)

Damit läute ich ein neues Kapitel in meiner Perl-Programmierung ein ... endlich kann ich mich auch mal dem zuwenden, was eigentlich meistens mit Perl gemacht wird.

*champagneranmonitorwerf*

Und ich nähere mich mit dem (nach DBI) zweiten Schritt der sinnvollen Mitarbeit am pboard...

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

Dubu

2004-06-11 15:18

User since
2003-08-04
2145 Artikel
ModeratorIn + EditorIn

user image

Na, dann Gratulation. :)

format_c

2004-06-11 16:15

User since
2003-08-04
1706 Artikel
HausmeisterIn

Nicht schlecht. Sogar mit TaintChecking.

Ich kann dir das Modul und die ganze Dokumentation (auch wenn sie so furchtbar lang ist) ans Herz legen. Sie nimmt dir sehr viel Arbeit ab, wenn man weis wie man es geschickt einsetzen kann.

Gruß Alex

Effizente Linuxshell

Crian

2004-06-11 19:48

User since
2003-08-04
5872 Artikel
ModeratorIn

Danke :)

Ja, ich hab nicht vor, selbst irgendwelche Parameter zu parsen oder dergleichen, dazu hab ich hier im Forum schon zu viel passiv mitbekommen. Und da ich das Buch (und im letzten Urlaub schon trocken angefangen zu lesen) habe, werd ich versuchen, nichts unvernünftiges zu machen.

Hmmm das Taint-Checking... in dem Script wird gar nichts vom User entgegengenommen, aber schaden kann es ja nicht, sich das gleich anzugewöhnen :)

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

Strat

2004-06-11 23:50

User since
2003-08-04
5246 Artikel
ModeratorIn

apropos: ich verwende zum Entwickeln gerne -t anstelle von -T, weil das nicht sofort stirbt, sondern nur warnt, und somit wird das testen ein klein wenig einfacher (gerade in Kombination mit use CGI::Carp qw(warningsToBrowser fatalsToBrowser); ). Das habe ich mir schon lange vorgenommen, ins neue Forum einzubauen...

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

Crian

2004-06-12 03:08

User since
2003-08-04
5872 Artikel
ModeratorIn

Danke, ich hab mir das mal als Tipp notiert.

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

format_c

2004-06-12 03:27

User since
2003-08-04
1706 Artikel
HausmeisterIn

Ich meinte auch insbesondere die Generierung von HTML-Code mit Hilfe des Moduls CGI.

Gruß Alex

Effizente Linuxshell

Crian

2004-06-12 03:33

User since
2003-08-04
5872 Artikel
ModeratorIn

Ja mal sehen, wie ich es mache, wenn ich ernsthafte Anwendungen schreibe, vielleicht kombiniere ich das dann mit HTML::Template.

Auf jeden Fall möchte ich es gerne "richtig" machen ;-)

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

View all threads created 2004-06-10 06:05.