Hi Monks, I'm expecting to pull from a win32 reg file of the uninstall keys, the Name, Version and Manufacturer of the software installed.


My perl: 
#!/usr/bin/perl
use strict;

open (DATAFILE, "<", 'test.txt') or die "Couldn't open file for readin
+g: $!\n";
my   $temp;
$/ = ""; ## Paragraph mode

my $display_name;
my $version;

while( <DATAFILE> ) {

    m[
        (?= .*? \"DisplayName\"=\"([a-zA-Z0-9. -]*))
        (?= .*? \"DisplayVersion\"=\"([a-zA-Z0-9 .-]*))
        (?= .*? \"Publisher\"=\"([a-zA-Z0-9 .-]*))
    ]xsm;

    print "Name:$1\nVersion:$2\nPublisher:\n\n";

}

close(DATAFILE);

[download]


My Output: 
Name:
Version:
Publisher:

Name:
Version:
Publisher:

Name:
Version:
Publisher:

Name:Adobe SVG Viewer 3.0
Version: 3.0
Publisher:

Name:
Version:
Publisher:

Name:
Version:
Publisher:

Name:Example Display Name
Version:v7.5.2
Publisher:

Name:
Version:
Publisher:

[download]
The data file: 
Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstal
+l]
"DisplayName"=""
"UninstallString"="C:\\PROGRA~1\\CISCOS~1\\VPNCLI~1\\Profiles\\PROGRA~
+1\\CISCOS~1\\VPNCLI~1\\profiles\\UNWISE.EXE C:\\PROGRA~1\\CISCOS~1\\V
+PNCLI~1\\Profiles\\PROGRA~1\\CISCOS~1\\VPNCLI~1\\profiles\\INSTALL.LO
+G"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstal
+l\AddressBook]
@=""

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstal
+l\Adobe SVG Viewer]
"DisplayName"="Adobe SVG Viewer 3.0"
"DisplayVersion"=" 3.0"
"DisplayIcon"="C:\\Program Files\\Common Files\\Adobe\\SVG Viewer 3.0\
+\Uninstall\\SetupRsrc.dll,-200"
"VersionMajor"=dword:00000003
"VersionMinor"=dword:00000000
"InstallLocation"="C:\\WINDOWS\\system32\\Adobe\\SVG Viewer 3.0"
"UninstallString"="C:\\Program Files\\Common Files\\Adobe\\SVG Viewer 
+3.0\\Uninstall\\Winstall.exe -u -fC:\\Program Files\\Common Files\\Ad
+obe\\SVG Viewer 3.0\\Uninstall\\Install.log"
"UninstallDir"="C:\\Program Files\\Common Files\\Adobe\\SVG Viewer 3.0
+\\Uninstall"
"Publisher"="Adobe Systems, Inc."
"RegCompany"="Adobe Systems Inc"
"URLInfoAbout"="http://www.adobe.com/"
"URLUpdateInfo"="http://www.adobe.com/svg/main.html"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstal
+l\Artemis 7.2.1 ODBC]
"NoRemove"=dword:00000001

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstal
+l\Standalone]
"UninstallString"="C:\\WINDOWS\\IsUninst.exe -f\"C:\\Program Filesone.
+isu\""
"DisplayName"="This is-not SHOWING"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstal
+l\exampler]
"DisplayName"="Example Display Name"
"UninstallString"="c:\\applications\\uninst.exe"
"DisplayVersion"="v7.5.2"
"URLInfoAbout"="http://something.htm"
"Publisher"="NOT caught"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstal
+l\Branding]
"QuietUninstallString"="Rundll32 IedkCS32.dll,BrandCleanInstallStubs"
"RequiresIESysFile"="100.0"

[download]
As you can see from my results, I'm not catching everything, bearing in mind that the order of the 3 fields which I'm looking for may differ for each entry. Please can someone show me the folly of my ways?

In reply to Some regex magic by monkie

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.