Прочитайте переменную из целостности, и получить его с Perl в SQL - PullRequest
0 голосов
/ 27 августа 2018

Я использую PTC Integrity в своей фирме. Здесь у нас есть файл Excel, который мне нужно перенести в базу данных SQL с помощью скрипта Perl.

В самой Integrity есть номер для ревизии участника. Я вижу этот номер редакции, когда набираю:

echo %MKSSI_REVISION1%

в командной строке. Я пытался написать это на Perl, но для меня это действительно сложно. Сценарий Perl должен найти файл Excel Database.xlsx в пути C:\Integrity_Sandbox\Database\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;

1 Ответ

0 голосов
/ 27 августа 2018

Бодэгнмо решил свою проблему с помощью следующего кода 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;
...