Re^3: Having problems accessing individual attributes in xml

My first instinct was to suggest an XML parsing module. However, it looks like your data might not be strictly following XML formatting rules (i.e. Khen1950fx's comment). So, I decided to step into the trap of rolling my own code. The trap comes from working off of assumptions made from your "scrubbed" data.

Below is the code that I came up with and the output that it produced. Although you didn't ask for path information, it seemed like a natural next step, which is why I went ahead and added it into the code.

Code:

use strict;
use warnings;

use Data::Dumper;

my $file = "data.xml";
my @path;

open(XML,"<".$file) || die "Unable to open file '$file':  $!\n";
while (<XML>) {
    if (/<ncp_directory/i) {
        my ($dir) = (/name=\"(.+?)\"/i);
        push @path, ($dir);
    }
    if (/<\/ncp_directory/i) {pop @path;}
    if (/ncp_file/i) {
        my ($fname) = (/name=\"(.+?)\"/i);
        my ($md5) = (/md5=\"(.+?)\"/i);
        my $full_path = join("\\",(@path),$fname);
        print "$md5 Name = $fname\n";
        print "(Full path = $full_path)\n\n";
    }
}
close(XML);
[download]

Output:

27A8QATED9I2Ox8F65OGEPPDCIV Name = cpwmon2k.dll
(Full path = $dir1\CutePDFWriter\cpwmon2k.dll)

5F7UGLCH9K3GKxBNML1LM0G3RNL Name = gsdll32.dll
(Full path = $dir1\CutePDFWriter\converter\GPLGS\gsdll32.dll)

7EDJ7V7QHMBQ1x6HLC54FG0OP6T Name = a010013l.pfb
(Full path = $dir1\CutePDFWriter\converter\GPLGS\a010013l.pfb)

E61K8P45E8D81x3T3E47C8QIP0U Name = GSSetup.exe
(Full path = $dir1\CutePDFWriter\converter\GPLGS\GSSetup.exe)

D6VRKCQ4IFOSTxCLRJ9GHN6KR6J Name = ICONLIB.DLL
(Full path = $dir1\CutePDFWriter\converter\Driver\ICONLIB.DLL)

9EJQCU5IT5H58xBCG8GIT8PQEBS Name = PS5UI.DLL
(Full path = $dir1\CutePDFWriter\converter\Driver\PS5UI.DLL)

3REVK8VG65NGUx88P61CUHUN603 Name = PS5UI.DLL
(Full path = $dir1\CutePDFWriter\converter\Driver\x64\PS5UI.DLL)

BIAA93SK0Q9VRxBT7BCG7U4L2F0 Name = PSCRIPT5.DLL
(Full path = $dir1\CutePDFWriter\converter\Driver\x64\PSCRIPT5.DLL)

1QBHH0SQPIJ2Cx1REJOP1QAUJJK Name = CUTEPDFW.PPD
(Full path = $dir1\CutePDFWriter\converter\Driver\CUTEPDFW.PPD)

9M25IA0L5NFKNx60S9M36K0FA6U Name = Cutepdfw.spd
(Full path = $dir1\CutePDFWriter\converter\Driver\Cutepdfw.spd)

5CD14FVPVPV2TxFDKG6C6OND5U1 Name = CPWSave.exe
(Full path = $dir1\CutePDFWriter\converter\CPWSave.exe)

DKARE24NS4V4AxCM8QQ89CSDFDI Name = install.bat
(Full path = $dir1\CutePDFWriter\converter\install.bat)
[download]

Comment on Re^3: Having problems accessing individual attributes in xml Select or Download Code

Replies are listed 'Best First'.
Re^4: Having problems accessing individual attributes in xml by Gemenon (Initiate) on Oct 21, 2010 at 22:19 UTC
Thanks dasgar! This is a huge step! It will also take me to the next stage where I need to start dealing with registry file entries and .ini file parsing! Thanks again so much! I owe you bigtime!	[reply]