Opened by Gast at 2009-01-26 15:30
Hallo renee,
danke für den Hinweis. Nur, was ich nicht verstehe, dass in dem Ursprungs-Perlskript nichts von "my" stand. Dort wurden eine ganze Reihe von Parametern deklariert nach diesem Motto: "$country = param('country');", was auch funktioniert hatte.
Jedenfalls sieht mein Code jetzt so aus:
Nur leider erfolgt keine Ausgabe.
danke für den Hinweis. Nur, was ich nicht verstehe, dass in dem Ursprungs-Perlskript nichts von "my" stand. Dort wurden eine ganze Reihe von Parametern deklariert nach diesem Motto: "$country = param('country');", was auch funktioniert hatte.
Jedenfalls sieht mein Code jetzt so aus:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#!/usr/bin/perl -w
use DBI;
use CGI qw/:all/;
use warnings;
use strict;
my $receiver;
my $country = param('country');
if ($country eq "usa") { $receiver ="global\@..."; }
elsif ($country eq "uk") { $receiver ="europe\@..."; }
print "Content-type: text/html\n\n";
print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">', "\n";
print "<html><head><title>Test-Ausgabe</title></head><body>\n";
print "<h1>$receiver</h1>\n";
print "</body></html>\n";
Nur leider erfolgt keine Ausgabe.