#!/usr/bin/perl -w
#!C:/xampp/perl/bin/perl -w
#
#    This file is part of a perl tutorial
#
#    (C) Copyright 1999 Hans Kern
#
#    File name    : pldemo15.cgi
#    Created by   : Hans Kern
#    Creation date: 31.3.99
#

#    Beispiel zum Arbeiten mit symbolischen Referenzen.

#!!! Sehr Wichtig!!!
#    my @hugo;   nicht erlaubt
#    my $ind;    teilweise nicht erlaubt
#    use strict; nicht erlaubt

print "Content-type:text/plain\n\n";

@hugo       = (
   "emma",   
);

# defined und defined() sind gleichwertig.
if (defined @hugo) {
   print "defined, o.k.\n";
}
if (defined (@hugo)) {
   print "defined, o.k.\n";
}

# @$ind, ${'$ind'}, @${"ind"}, @{${"ind"}}, @${'ind'}, @{${'ind'}}
# sind gleichwertig.
$ind = 'hugo';
if (defined( @$ind)) {
   print @$ind[0]," 1. defined\n";            # geht mit my $ind;
}
if (defined( @{'$ind'})) {
   print @{'$ind'}[0]," 2. defined\n";        # falsch
}
if (defined( @${'ind'})) {
   print @${'ind'}[0]," 3. defined\n";
}
if (defined( @{${'ind'}})) {
   print @{${'ind'}}[0]," 4 .defined\n";
}
if (defined( @{"$ind"})) {
   print @{"$ind"}[0]," 5. defined\n";        # geht mit my $ind;
}
if (defined( @${"ind"})) {
   print @${"ind"}[0]," 6. defined\n";
}
if (defined( @{${"ind"}})) {
   print @{${"ind"}}[0]," 7. defined\n";
}
$ind = 'elsa';
if (defined( @{${'ind'}})) {
   print " 8. defined\n";
} else {
   print "not defined\n";
}