#!/usr/bin/perl

use v5.12;
use warnings;

my @matrix = (
    [qw(Blume Baum Pilz Rose Obst Gemüse)]
    , [qw(1 2 3 4 5 6)]
);

print "Vorher: " . $matrix[0]->[1] . "\n";

# Eintrag ändern
$matrix[0]->[1] = "Ahornbaum";
print "Nachher: " . $matrix[0]->[1] . "\n";

# Neue Daten-Zeile hinzufügen
push @matrix, [qw(Hai Hirsch Käfer Fisch Reh Tiger)];

print "Letztes Element: " . $matrix[2]->[-1] . "\n";

# Datensätze austauschen/verschieben
print "Vorher: " . $matrix[2]->[3] . "\n";
($matrix[0], $matrix[2]) = ($matrix[2], $matrix[0]);
print "Nachher: " . $matrix[2]->[3] . "\n";

my $ref0 = [qw(Blume Baum Pilz Rose Obst Gemüse)];
my $ref1 = [qw[1 2 3 4 5 6]];
my $ref2 = [1, 2, 3];

my @matrix = ($ref0, $ref1);
# oder
my $matrixref = [$ref0, $ref1];

push @matrix, $ref2;
push @matrix, ["hier ist", "eine", "neue", "ref"];

print "Element: ", $matrix[1]->[0];
print "oder kürzer: ", $matrix[1][0];

#!/usr/bin/perl

use warnings;
use strict;

my @matrix = (["Blume", "Baum", "Pilz", "Rose", "Obst", "Gemüse"],
              [1, 2, 3, 4, 5, 6]);

print "Vorher: ".$matrix[0][1]."\n";

# Eintrag ändern
$matrix[0][1] = "Ahornbaum";
print "Nachher: ".$matrix[0][1]."\n";

# Neue Daten-Zeile hinzufügen
push(@matrix, ["Hai", "Hirsch", "Käfer", "Fisch", "Reh", "Tiger"]);
print $matrix[2][1]."\n";

use strict;
use warnings;
use Data::Dumper;

my $table = [
    {
        name  => 'Rost',
        vname => 'Rolf',
        plz   => '55276',
        ort   => 'Oppenheim',
    },
    {
        name  => 'Haselhuhn',
        vname => 'Horst',
        plz   => '12345',
        ort   => 'Henneberg',
    },
];

# direkte Adressierbarkeit der Felder über Index und Feldname
$table->[1]->{plz} = 99999;
$table->[1]{plz}   = 99999; # dasselbe wie oben, der erste Pfeil reicht

print Dumper $table;

# Direkte Adressierbarkeit nutzen für Sortierungen
foreach my $addr( sort{ $a->{plz} cmp $b->{plz}  } @$table ){
    printf qq(
        Name:    %s
        Vorname: %s
        Ort:     %s
        PLZ:     %s
    ), 
    $addr->{name}, $addr->{vname}, $addr->{ort}, $addr->{plz}; 
}

# Hash Slice zum rausholen der Werte in der richtigen Reihenfolge
foreach my $addr( sort{ $a->{plz} cmp $b->{plz}  } @$table ){
    my %h = %{$addr};
    printf qq(
        Name:    %s
        Vorname: %s
        Ort:     %s
        PLZ:     %s
    ), @h{qw(name vname ort plz)}; 
}