Случайный ключ или значение хеша

[ocehb]

(keys %hash)[int rand scalar %hash]
(values %hash)[int rand scalar %hash]

# for i in {0..9}; do
perl -le '%hash = ( aa => 1, bb => 2, cc => 3, dd => 4 ); print ((keys %hash)[int rand scalar %hash])';
done
cc
bb
bb
dd
bb
aa
dd
dd
aa
aa
#

Comments

[jerom.livejournal.com]

buggy. Попробуй с хэшом:

%hash = (
name => 'John Doe',
age => 39,
phone => '555-1212',
city => 'Chicago'
);

PS: А int зачем?