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

#    Referenzen

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

$skalar = 123;  
@array = (4711,'text',8.15);
%hash = ('Parfum',4711,'Text','Bericht','gewoehnlich','0815');

$rs = \$skalar;                         #  Referenz auf einen Skalar
$ra = \@array;                          #  Referenz auf einen Array
$rh = \%hash;                           #  Referenz auf einen Hash

print "$rs\n$ra\n$rh\n";                #  Die Referenz weiß, was sie referenziert.

print "$$rs\n";                         #  Dereferenzieren eines Skalars.
print "@$ra[0]\n";                      #  Dereferenzieren eines Arrays.
print "$$rh{'Text'}\n";                 #  Dereferenzieren eines Hashes, nicht mit %!!!
 
print "$ra->[0]\n";                     #  Dereferenzieren eines Arrays mit Pfeilnotation.
print "$rh->{'Text'}\n";                #  Dereferenzieren eines Hashes mit Pfeilnotation.

#  Anonyme Speicherbereiche

$ra = [1,2,3,5,7];                      #  Referenz auf einen anonymen Array. Achtung []!
@$ra[5] = 11;                           #  Erweitern des anonymen Arrays
$ra->[6] = 13;                          #  Erweitern des anonymen Arrays
foreach $index ( @$ra) {                #  
   print "$index\n"
}

$rh = {'a','alpha','b','beta'};         #  Referenz auf einen anonymen Hash. Achtung {}!
$$rh{'c'} = 'gamma';                    #  Erweitern des anonymen Hash, nicht mit %!!!
$rh->{'d'} = 'delta';                   #  Erweitern des anonymen Hash
foreach $key ( keys(%$rh)) {
   print "$key $rh->{$key}\n"
}