#!/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    : pldemo01.cgi
#    Created by   : Hans Kern
#    Creation date: 31.3.99
#

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

#    Beispiel zum Arbeiten mit Variablen.

#    Skalare

$hugo = 123;                   #  $hugo enthält einen integer
print $hugo."\n";              #  . ist Stringverkettung
$hugo = 'Hugo';                #  $hugo enthält jetzt einen string
print "$hugo\n";               #  Innerhalb "  " wird aufgelöst
print '$hugo\n'."\n\n";        #  Innerhalb '  ' wird nicht aufgelöst

#    Arrays = Listen

@hugo = (4711,'text',8.15);    #  Array mit Elementen von 0 bis 2
print "$hugo[0]\n";            #  Nimmt Bezug auf das 0.te Element von @hugo!
print "$hugo[1]\n";
print "$hugo[2]\n";            #  Es gibt den Array @hugo und
print "$hugo\n";               #  den Skalar $hugo!
$hugo[4] = 13;                 #  Dynamische Erweiterung des Arrays!
foreach $index ( @hugo) {      #  Element 3 ist nicht initialisiert.
   if (defined $index) {
      print "$index\n";
   } else {
      print "Undefined Index\n";
   }	
}
print "\n";

#    Hashes

%hugo = ('Parfum',4711,'Text','Bericht','gewoehnlich','0815');
print "$hugo{'Text'}\n";       #  Ausgabe des Hash-Elementes zu 'Text'
$hugo{'neu'} = 'new';          #  Erweiterung des Hashes
foreach $key ( keys(%hugo)) {  #  Es gibt jetzt $hugo, @hugo, %hugo!
   print "$key $hugo{$key}\n"
}
print "\n";