小编Dra*_*ick的帖子

因为我是perl的初学者,oracle sql和其他一切.我必须编写一个脚本来解析excel文件并将值写入oracle sql数据库.

到目前为止一切都很好.但它以随机顺序将行写入数据库.

for ($row_min .. $row_max) {...insert into db code $sheetValues[$_][col0] etc...}

我不明白为什么以随机顺序插入行？显然我怎样才能让它们按顺序排列？excel_row 0 => db_row 0等等...

数组中的值是有序的!行数是动态的.

感谢您的帮助,我希望您能获得所需的所有信息.

编辑:

&parseWrite;

sub parseWrite {
    my @sheetValues;
    my $worksheet = $workbook->worksheet(0);
    my ($row_min, $row_max) = $worksheet->row_range();
    print "| Zeile $row_min bis $row_max |";
    my ($col_min, $col_max) = $worksheet->col_range();
    print " Spalte $col_min bis $col_max |<br>";

    for my $row ($row_min .. $row_max) {
        for my $col ($col_min .. $col_max) {
            my $cell = $worksheet->get_cell ($row,$col);
            next unless $cell; …