perl - 以特定间隔在 perl 中迭代

Question

对不起我的菜鸟，这会迭代整个表。但是，我想从第二行开始迭代。怎么做。

foreach my $row ($table->rows) {
    print join(',', @$row), "\n";
}

谢谢。

Answer 1

my @rows = $table->rows;
for my $row (@rows[ 1 .. $#rows ]) {
    print join(',', @$row), "\n";
}