MSI-Datei in Perl lesen

Question

Ich möchte eine MSI-Datei lesen. Ich benutze die Bibliothek Win32 :: MSI :: HighLevel, aber diese sendet mich undef die ganze Zeit.

Mein Code:

use strict; 
use warnings FATAL => 'all'; 
use Win32::MSI::DB qw(Win32::MSI::DB::MSIDBOPEN_READONLY); 
use Win32::MSI::HighLevel; 
use Data::Dumper; 
my $msi = Win32::MSI::HighLevel->new (-file => "Firefox.msi", -mode => $Win32::MSI::DB::MSIDBOPEN_READONLY) or die "error $!"; 
my $productCode = $msi->getProductCode; 
my $product = $msi->getProduct; 

print Dumper $productCode; 

Die $product kehrt ': - ' und $productCode ist undefiniert.

Ich habe die Informationen der msi-Datei in den Windows-Dateieigenschaften überprüft und überprüft, dass die Informationen darin sind. Ich habe den Code mit einer anderen MSI-Datei ausprobiert und ich habe das gleiche Problem.

Answer 1

ich finde die Lösung. Ich füge Anruf bei "populateTable" -Funktion, so der Code ist:

use strict; 
use warnings FATAL => 'all'; 
use Win32::MSI::DB qw(Win32::MSI::DB::MSIDBOPEN_READONLY); 
use Win32::MSI::HighLevel; 
use Data::Dumper; 
my $msi = Win32::MSI::HighLevel->new (-file => "Firefox.msi", -mode => $Win32::MSI::DB::MSIDBOPEN_READONLY) or die "error $!"; 
$msi->populateTable(); 
my $productCode = $msi->getProductCode; 
my $product = $msi->getProduct; 

print Dumper $productCode; 

Answer 2

Der ProductCode einer MSI-Datei befindet sich in einer Tabelle namens Properties in der MSI-Datei, bei der es sich um eine relationale Datenbank handelt. Es ist keine Dateieigenschaft. Dieser Beitrag soll helfen:

PowerShell: Get the MSI product code out of a MSI file without installing?

, weil es die verschiedenen Anrufe umreißt, die gemacht werden müssen, die im Grunde sind die Datenbank zu öffnen, führen Sie eine Openview mit der SQL-Abfrage „“ SELECT Wert von Immobilien WHERE Eigenschaft = 'Productcode' und so weiter, und ähnliche hier:

https://codereview.stackexchange.com/questions/143304/get-productcode-from-msi-file-using-dtf-in-c