1 2
my $statement = "SELECT DISTINCT(Rubrik), Code FROM ... ORDER BY Rubrik"; my %categories = @{$dbh->selectcol_arrayref($statement, { Columns=>[2,1] })};
1 2 3 4 5 6 7 8 9 10 11
my %category = ( 'Zett' => 'das ist ein Z', 'Test' => 'Test oder nicht, das ist die Frage', 'BCD' => 'Means what?' ); my @category_keys = keys %category; for my $key (sort @category_keys) { # do something with the values say $k, " ist in Wirklichkeit dies: ", $category{$key}; }
[{},{},{},{},{},{}]