Leser: 23
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
#!/usr/bin/perl use warnings; use strict; use Data::Dumper; my %PurchPCHash = (); my $PC = "Computer_PC3850"; my $New_PurchaseDate = "24.01.2014"; my $PrimaryUser = "Max Mueller"; my $Typ = "Asus"; $PurchPCHash {$PC}= {"New_PurchaseDate" => "$New_PurchaseDate"}; .... .... .... $PurchPCHash {$PC }-> {"PrimaryUser"} = "$PrimaryUser"; $PurchPCHash {$PC }-> {"Typ"} = "$Typ"; print "Was hat mein HoH: \n\n",Dumper(\%PurchPCHash),"\n\n";
$PurchPCHash {$PC }-> {"PrimaryUser"} = "$PrimaryUser";
$PurchPCHash{$PC}{PrimaryUser} = $PrimaryUser;
%PurchPCHash = ( %PurchPCHash, PrimaryUser => $PrimaryUser, Typ => $Typ );
@{$PurchPCHash{$PC}}{"PrimaryUser", "Typ"} = ( $PrimaryUser, $Typ );