%hash=();
$i=0;
@key=('Monday','Tuesday','Wednesday','Thursday','Friday','Saturday');
@value=('tea','shugar');
while ($i<6)
{
%hash=(%hash,$key[$i],@value);
$i+=1;
}
~>perl -d test
main::(test:3): %hash=();
DB<1> n
main::(test:4): $i=0;
DB<1>
main::(test:5): @key=('Monday','Tuesday','Wednesday','Thursday','Friday','Saturday','Sunday');
DB<1>
main::(test:6): @value=('tea','shugar');
DB<1>
main::(test:7): while ($i<7)
main::(test:8): {
DB<1>
main::(test:9): %hash=(%hash,$key[$i],@value);
DB<1>
main::(test:10): $i+=1;
DB<1> p %hash
shugarMondaytea
DB<2>
main::(test:7): while ($i<7)
main::(test:8): {
DB<2>
main::(test:9): %hash=(%hash,$key[$i],@value);
DB<2>
main::(test:10): $i+=1;
DB<2> p %hash
MondayteashugarTuesdaytea
DB<3>
main::(test:7): while ($i<7)
main::(test:8): {
DB<3>
main::(test:9): %hash=(%hash,$key[$i],@value);
DB<3>
main::(test:10): $i+=1;
DB<3> p %hash
WednesdayteashugarMondayteaTuesdaytea
почему так получается? как реализовать запись в хешь ключа и значения, которое являемся массивом.