我在我的公司使用 PTC Integrity。这里我们有一个 Excel 文件,我需要使用 Perl 脚本将其传输到我们的 SQL 数据库。
在 Integrity 本身中,有一个成员修订号。当我键入时,我可以看到这个修订号:
echo %MKSSI_REVISION1%
在命令行中。我试着用 Perl 写这个,但这对我来说真的很难。Perl 脚本应该在路径中查找 Excel 文件 Database.xlsx C:\Integrity_Sandbox\Database\Database.xlsx
,然后读取 Member Revision 编号,并将此编号写入我的 SQL 数据库。
有人对我如何做到这一点有任何想法吗?
编辑解决方案:
my @result = `si revisioninfo --project=/Database/project.pj ´Database.xlsm`;
my $integrity_version = @result[2];
chomp $integrity_version;
my @fields = split(/: /,$integrity_version);
$integrity_version = @fields[1];
chomp $integrity_version;