push zu arrayref - #109633 (Allgemeines zu Perl)

Struppi

2008-05-12 23:10

User since
2006-02-17
628 Artikel
BenutzerIn

Deine HRef Funktion könntest zumindest mit den keys so verwenden:

Code (perl): (dl )

sub HRef { wantarray ? keys %{$_[0]} : %{$_[0]} };
 my $href = { qw(a 1 b 2) };
 foreach( HRef $href){
 print "$_\n";
 }