- or download this
+-----------+ +-----------+
| O-----+----->| 12345 |
+-----------+ +-----------+
- or download this
+----------\ +----------\
| a > | b >
...
+-----------+ +-----------+
| O-----+----->| 12345 |
+-----------+ +-----------+
- or download this
+----------\
| b > +----------\
...
+-----------+ +-----------+
| O-----+----->| Qux |
+-----------+ +-----------+
- or download this
+----------\
| a > +-->+###########+
...
| Baz |
+-----------+
- or download this
+----------\
| a > +-->+###########+
...
| Baz |
+-----------+
- or download this
$aref = [123, 456, 789];
- or download this
$href = {NAME => 'Bernd', EMAIL => 'bdulfer@sybase.com'};
- or download this
$fref = sub { print "AnonSub\n" };
- or download this
use Data::Dumper;
...
my @b = (1, 2, 3, 4);
make_hash_from_arrays(\@a, \@b);
- or download this
$adresse{Bernd} = 'Bernd Dulfer|Kapellenstr. 1|bdulfer@sybase.com'
+;
$email = (split(/\|/, $adresse{bernd}))[2];
- or download this
$name{Bernd} = 'Bernd Dulfer';
$str{Bernd} = 'Kapellenstr. 1';
$email{Bernd} = 'bdulfer@sybase.com';
print_adresse($name{Bernd}, $str{Bernd});
- or download this
+----------\
| adresse >
...
$email = $adresse{Bernd}->{EMail};
print_adresse($adresse{Bernd});
- or download this
+----------\
| adresse >
...
'Die Farben der Magie'
]
};
- or download this
$s = 'qwertz';
$sref = \$s;
print ${$sref}, "\n";
print $$sref, "\n";
- or download this
qwertz
qwertz
- or download this
$, = ':';
@a = (123, 456, 789);
$aref = \@a;
print @{$aref}, "\n";
print @$aref, "\n";
- or download this
123:456:789
123:456:789
- or download this
${$aref}[1]
oder
$$aref[1]
- or download this
$adresse{Bernd} = {
Name => 'Bernd Dulfer',
...
]
};
print 'Name: ', $adresse{Bernd}->{Name}, "\n";
- or download this
Name: Bernd Dulfer
- or download this
$adresse{Bernd}->{Buecher}->[3] = 'Goedel, Escher, Bach - Ein endl
+os geflochtenes Band';
- or download this
push @{$adresse{Bernd}->{Buecher}}, 'Die Eissegler von Tran-ky-ky'
+;
- or download this
%autoren = (
Tolkien => [
...
'Tönerne Füße'
]
)
- or download this
$adresse{Bernd}->{Autoren} = \%autoren;
- or download this
push @{$autoren{Tolkien}}, 'Der Kleine Hobbit';
- or download this
#!/usr/bin/perl
...
$adresse{Bernd}->{Autoren}->{Tolkien} = ['Silmarillion', 'Unfinish
+ed Tales'];
print Dumper(\%adresse);
- or download this
$VAR1 = {
'Bernd' => {
...
'Name' => 'Bernd Dulfer'
}
};
- or download this
#Kürzel Name Str EMail Buec
+her
Bernd |Bernd Dulfer |Kapellenstr. 1 |bdulfer@sybase.com |(Der Her
+r der Ringe|Per Anhalter ...|Die Farben der Magie)
Bilbo |Bilbo Beutlin |Beutelsend | |(Das Rot
+e Buch des Hobbits)
- or download this
1: my %adressen;
2:
...
13: push @{$adressen{$kuerzel}->{Buecher}}, split /\|/, $buecher;
14: }
15: close ADRESSEN;
- or download this
foreach (@{$adresse{Bernd}->{Buecher}}) {
print $_, "\n";
}
- or download this
foreach (keys %{$adresse{Bernd}->{Autoren}}) {
print $_, "\n";
...
print "\t", $_, "\n";
}
}
- or download this
Package Mod;
...
sub print_rubbish (
print "Rubbish!\n";
}
- or download this
%dispatch = (
insert => \&insert,
...
)
$dispatch{$token}->($query);