Initialisierungstest für variable

[steckl]

Hi,

Ich hab da ein (wahrscheinlich) einfaches Problem, finde aber keine Lösung  (und es fehlen mir gute Suchbegriffe).

Wenn du das vorhast was ich denke machst du es dir viel zu kompliziert.

Warum benutzt du nicht das CGI-Modul von Perl?

Hier ein Beispiel:

  
#!/usr/local/bin/perl -w  
  
use strict;  
  
use CGI qw(:standard);  
use CGI::Carp qw(fatalsToBrowser);  
  
  
print header();  
  
# param ohne Argument listet die Namen aller Argumente,  
# die an das Script uebergeben wurden  
my @alleParameter = param() || 'Es wurden keine Argumente uebergeben!';  
  
print "Alle uebergebenen Parameter: @alleParameter<br>\n";  
  
my $testVar = param('fuenf');  
if(defined($testVar))  
{  
    print "testVar ist definiert: $testVar<br>\n";  
}  
  
my $testVar2 = param('sieben') || '';  
if(defined($testVar2))  
{  
    print "testVar2 ist definiert: $testVar2<br>\n";  
}  

mfG,
steckl