[perl] array of hashes und foreach

[perl ist doof (Gast)]

Hallo,

ich werde gerade wahnsinnig. :-/

my @arr;

push (@arr, {"aa"=>1, "bb"=>2, "cc"=>3});
push (@arr, {"aa"=>11, "bb"=>22, "cc"=>33});
push (@arr, {"aa"=>111, "bb"=>222, "cc"=>3333});

#ok
print $arr[0]{"aa"};

#ok
foreach (0..$#arr)
{
  print $arr[$_]{"aa"},"\n";
}

#fehler
foreach (@arr)
{
  print $_{"aa"},"\n";
}

Wie muss die letzte print-Anweisung richtig lauten? Ich hab schon zig 
Varianten probiert mit {} und () aber nichts geht.

[Μαtthias W. (matthias)]

Hi

print $_->{"aa"},"\n";

Matthias

[perl ist doof (Gast)]

Danke! Schnelle Hilfe, so kenne ich das Forum. :-)

Da soll nochmal jemand sagen C wäre schwer und obfuscated und so...

$id=~s/%([[:xdigit:]]{2})/chr(hex($1))/ge;
$info{(split(/=/))[0]}=(split(/=/))[1] foreach (split(/&/, $id));

 waaahhh!

[perl ist doof (Gast)]

Noch eine Frage:

Wenn ich in C auf einen Tastendruck warten will (egal welche Taste!!) 
nehme ich conio.h/getch(). Was nimmt man in perl? Google findet da nur 
so kompliziertes Zeugs was alles nicht funktioniert (unter Windows), man 
muss immer Enter drücken.

[Μαtthias W. (matthias)]

Hi

evtl. hilft http://www.xav.com/perl/site/lib/Win32/Console.html
Hab ich aber noch nie benutzt.

Matthias

[Peter II (Gast)]

http://search.cpan.org/dist/TermReadKey/ReadKey.pm

[Tom M. (tomm)]

man nimmt Term::ReadKey; zumindest ReadKey(-1) sollte auf allen halbwegs 
gängigen Plattformen funktionieren. RTFM. :)

[perl ist doof (Gast)]

Peter II schrieb:
> http://search.cpan.org/dist/TermReadKey/ReadKey.pm
Danke.

ReadMode 4;
$key=ReadKey(0);
ReadMode 0;

scheint das zu tun was ich will.

> RTFM. :)
Da hast du wohl Recht, man muss das "M" nur erstmal finden...