Programmierung eines vernetzten Eingabeformulars - #4065 (Perl/CGI)

renee

2005-01-13 08:29

User since
2003-08-04
14371 Artikel
ModeratorIn

Herzlich Willkommen bei Perl-Community.de

Ich würde Dir raten, das Modul CGI zu benutzen und statt -w das use warnings zu benutzen.:

Code: (dl )

#!/usr/bin/perl

use warnings;
use strict;
use CGI;
use CGI::Carp qw(fatalsToBrowser);

open(PRINTIT,">/usr/local/daten.txt");
print PRINTIT "foo";
close(PRINTIT);

my $cgi = CGI->new();
my %Formular = $cgi->Vars();

print $cgi->header(-type => 'text/html');
print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">', "\n";
print "<html><head><title>CGI-Feedback</title></head>\n";
print "<body><h1>CGI-Feedback vom Programm <i>comments.pl</i></h1>\n";
print "<p><b>Name:</b> $Formular{AnwenderName}</p>\n";
[...]

P.S.:Bitte beim nächsten Mal [code]-Tags verwenden...\n\n

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/