通过Perl将数据从XLSX插入数据库

Question

我需要将数据从XLSX插入到数据库中，并且此代码工作只能对文件中的所有数据进行2行，我需要跳过第一行CMD告诉我，我需要4个值，但需要3个值，但我的Excel有3行在此处输入图像描述

#!/usr/local/bin/perl
use strict;
use warnings;
use diagnostics;
use Spreadsheet::ParseXLSX;
use DBI;
use Data::Dumper qw(Dumper);

my $parser   = Spreadsheet::ParseXLSX->new();
my $workbook = $parser->parse('test.xlsx');
my $dbh = DBI->connect("DBI:mysql:pokus:localhost", "root", "", { RaiseError => 1}) or die $DBI::errstr;
my $query = 'INSERT INTO soucastky (id, name, age, city) VALUES (?,?,?,?)';
my $sth = $dbh->prepare($query) or die "Prepare failed: " . $dbh->errstr();


if ( !defined $workbook ) {
       die $parser->error(), ".\n";
}
for my $worksheet ( $workbook->worksheets() ) {
   my ( $row_min, $row_max ) = $worksheet->row_range();
    my ( $col_min, $col_max ) = $worksheet->col_range();

    for my $row ( $row_min .. $row_max ) {
        my @values;
        for my $col ( $col_min .. $col_max ) {
            my $cell = $worksheet->get_cell( $row, $col );
            next unless $cell;
            push @values, $cell->value();
        }
        $sth->execute(@values) or die $dbh->errstr;
    }
}

open my $fh, "<", "test" or die $!;
while (<$fh>)
{
        chomp;
        my @vals = split;
        $sth->execute(@vals);
}
close $fh;

Answer 1

如果您阅读 for drace documentation for dreversheet :: parseexcel :: parseexcel

电子表格:: Parseexcel模块可用于从Excel 95-2003二进制文件中读取信息。

模块无法在Excel 2007打开XML XLSX格式中读取文件。请参阅 evendersheet :: xlsx module。

电子表格的文档:: xlsx说：

此模块使用正则XML的方式存在一些严重的问题。我强烈鼓励切换到 vendersheet :: parsexlsx 采取更可靠的方法。 P>

因此，您需要切换到可以解析您使用的电子表格的模块。