从 Integrity 读取 Variable,用 perl 获取到 sql

Read Variable from Integrity, and get it with perl to sql

我在我的公司使用 PTC Integrity。这里有一个 Excel 文件,我需要使用 Perl 脚本将其传输到我们的 SQL 数据库。

Integrity 本身有一个成员修订号。我在键入时可以看到此修订号:

echo %MKSSI_REVISION1%

在命令行中。我试着用 Perl 写这个,但这对我来说真的很难。 Perl 脚本应在路径 C:\Integrity_Sandbox\Database\Database.xlsx 中查找 Excel 文件 Database.xlsx,然后读取成员修订号,并将此编号写入我的 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;

Bodaggnmo 使用以下 Perl 代码解决了他的问题:

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;