Рейтинг:0

Perl массив массивов в цикле

флаг br

Как добавить массив в список массивов (двумерный массив) в Perl? Эта опция не работает / пример:

мой @db;
мой $i = 0;
мой @случайный;
в то время как ($ я < 10) {
    @random = genNum(49, 6);
    @db[$i++] = @random;
}

напечатать $db[3][1] . "\п";
Рейтинг:0
флаг br

ОК, я немного изменил код, и кажется, что это хорошо:

мой @db;
мой $i = 0;
мой @случайный;
в то время как ($ я < 10) {
    @random = genNum(49, 6);
    push( @{$db[$i++]}, @random);
}
$i = 0;
в то время как ($ я < 10) {
        print join(", ", @{$db[$i++]}) . "\п";

}

Ответить или комментировать

Большинство людей не понимают, что склонность к познанию нового открывает путь к обучению и улучшает межличностные связи. В исследованиях Элисон, например, хотя люди могли точно вспомнить, сколько вопросов было задано в их разговорах, они не чувствовали интуитивно связи между вопросами и симпатиями. В четырех исследованиях, в которых участники сами участвовали в разговорах или читали стенограммы чужих разговоров, люди, как правило, не осознавали, что задаваемый вопрос повлияет — или повлиял — на уровень дружбы между собеседниками.