Re^2: XML Parsing,

Hi, thanks for the reply, as you have pointed out, i do not know a lot of perl, hence why there is a lot of repetition. a little more info (that i should have said before). I am sent a zip file with lots of jpgs and one xml file. i extract them to the folder E:\cars on my pc and then run the script. usually this works fine, renames all the images and then creates a csv file for each vehicle. The problem i have is that when i try to process an xml file that has details of only one vehicle in, ie

<?xml version="1.0"?>
<!--DMS Auction Export - Version 1.2-->
<root>
    <Header>
    <MemberID>005</MemberID>
    <ExportID>7908</ExportID>
    </Header>
    <Vehicle>
    <AuctionID>21261</AuctionID>
    
    <VehicleID>149611</VehicleID>
    
    <Ref></Ref>
    
    <Manufacturer>FORD</Manufacturer>
    
    <Model>FIESTA</Model>
    
    <RegNo>EA05BYM</RegNo>
    
    <RegYear>2005</RegYear>
    
    <Colour>Red</Colour>
    
    <Fuel>Petrol</Fuel>
    
    <Damage></Damage>
    
    <Doors>3</Doors>
    
    <Body>Hatchback</Body>
    
    <CC>1999</CC>
    
    <Speedo></Speedo>
    
    <TransSpeed>5 Speed</TransSpeed>
    
    <TransType>Manual</TransType>
    
    <TrimLevel>CLOTH</TrimLevel>
    
    <Engine></Engine>
    
    <Cat>C</Cat>
    
    <ReservePrice>2565</ReservePrice>
    
    <StartPrice>0</StartPrice>
    
    <HasVAT>0</HasVAT>
    
    <Keys>1</Keys>
    
    <Starts>0</Starts>
    
    <Drives>0</Drives>
    
    <Stereo>0</Stereo>
    
    <VINPlate>1</VINPlate>
    
    <LogBook>0</LogBook>
    
    <DateAuction>27.03.2009</DateAuction>
    
    <Location>BURSCOUGH</Location>
    
    <CanBeViewed>YES</CanBeViewed>
    
    <CostExVAT>0</CostExVAT>
    
    <PAV>0</PAV>
    <Images>
    <Image_1>650161.jpg</Image_1>
    
    <Image_2>650162.jpg</Image_2>
    
    <Image_3>650163.jpg</Image_3>
    
    <Image_4>650164.jpg</Image_4>
    
    <Image_5>650165.jpg</Image_5>
    
    <Image_6></Image_6>
    
    <Image_7></Image_7>
    
    <Image_8></Image_8>
    
    <Image_9></Image_9>
    
    <Image_10></Image_10>
    
    <Image_11></Image_11>
    
    <Image_12></Image_12>
    </Images></Vehicle>
    <Summary>
    <NumberOfVehicles>1</NumberOfVehicles>
    <DateExport>19.03.2009 14:12:50</DateExport>
    </Summary>
    </root>
[download]

the script stops. it doesn't give an error. it prints "other cars" than nothing else. i have determined that the script stops at the point where the XML fields are read into perl variables. making print statements at various points. It seems to be that because there is only one item in the foreach loop it is not going to work. I will also look at your suggestions, however i do not understand some of them. Thanks Again Michael

Comment on Re^2: XML Parsing, Download Code

Replies are listed 'Best First'.
Re^3: XML Parsing, by graff (Chancellor) on Sep 09, 2009 at 23:14 UTC
the script stops. it doesn't give an error. ... That's odd... when I ran the OP script on the xml file in your reply, I got an error message: `Not an ARRAY reference at 794307.pl line 46.` [download] In my copy of the script, line 46 was this one: `foreach $vehicle ( @{ $config->{'Vehicle'} } ) {` [download] Apparently, when the xml file contains only one "Vehicle", the default behavior of XML::Simple is to provide you with something that is not an array reference (e.g. maybe it's a reference to a hash instead of a reference to an array of hashes). That is why moritz, in the first reply, suggested that you include the `ForceArray=>1` parameter when you invoke XMLin to create your $config object, like this: `$config = XMLin( $xml, ForceArray => 1, SuppressEmpty => "" );` [download] When I made that change and ran it again, I didn't get the error message, and I got more output in addition to just `Other Cars<br>`. Anyway, as others have pointed out, there seem to be quite a few points where your code could use some improvement, and where it may even be doing things you don't intend (and/or not doing things you meant to do). Using more data structures, more loops, and better indentation will help a lot. (updated to fix a mistake in wording)	[reply] [d/l] [select]
Re^3: XML Parsing, by Sewi (Friar) on Sep 09, 2009 at 22:10 UTC
Hi Michael, please ask for everything you didn't understand. I think you're on a very good way and I don't want to stop you because of too short or bad written comments. Now I understand, why you're only parsing one xml file. Here is a really complicated, but short solution for this: `opendir THEDIR, "$ipath"; $xml = $ipath.(grep (/$str/, readdir THEDIR))[0]; closedir THEDIR;` [download] It is your grep (which returns an array of matching items) but as you only expect one element in the array, the grep-result is forced to be an array using the ( ) around grep. The combination of ( ) and &91; &93; allows you to fetch a specific array item without writing it to an array first. Another comment on your original article already told you that you might not get a array from the XML parser if only one inside object is found. There was a hint for a solution. To check this, you should print the thing you use as a array reference: `print STDERR $config->{'Vehicle'}."\n"; foreach $vehicle ( @{ $config->{'Vehicle'} } ) {` [download] If this isn't an array reference (shown as ARRAY(0x12345)), you could force it to be one: `$config->{'Vehicle'} = [$config->{'Vehicle'}] if ref($config->{'Vehicl +e'}) ne 'ARRAY';` [download] ref() tests if the parameter is a reference and returns the type of reference (in this case, ARRAY). If your value isn't what you expect (an ARRAY - reference), it creates one and fills in the old value into the new array.	[reply] [d/l] [select]