#!/usr/bin/perl use XML::Simple; ######XML PARSE########## $xml = 'e:\cars\input.xml'; $config = XMLin($xml); $exportid = "$config->{Header}->{ExportID}"; $numveh = "$config->{Summary}->{NumberOfVehicles}"; $memid = "$config->{Header}->{MemberID}"; $auctionid = "$config->{Vehicle}[0]->{AuctionID}"; $make = "$config->{Vehicle}[0]->{Manufacturer}"; $model = "$config->{Vehicle}[0]->{Model}"; $reg = "$config->{Vehicle}[0]->{RegNo}"; $year = "$config->{Vehicle}[0]->{RegYear}"; $colour = "$config->{Vehicle}[0]->{Colour}"; $fueltype = "$config->{Vehicle}[0]->{Fuel}"; $damage = "$config->{Vehicle}[0]->{Damage}"; $doors = "$config->{Vehicle}[0]->{Doors}"; $cc = "$config->{Vehicle}[0]->{CC}"; $mileage = "$config->{Vehicle}[0]->{Speedo}"; $transpeed = "$config->{Vehicle}[0]->{TransSpeed}"; $trantype = "$config->{Vehicle}[0]->{TransType}"; $trim = "$config->{Vehicle}[0]->{TrimLevel}"; $abicat = "$config->{Vehicle}[0]->{Cat}"; $reserve = "$config->{Vehicle}[0]->{Reserveprice}"; $vat = "$config->{Vehicle}[0]->{HasVAT}"; if ($vat eq 1){$hasvat = "Yes"} else {$hasvat = "No"}; $xmlstarts = "$config->{Vehicle}[0]->{Starts}"; if ($xmlstarts eq 1){$starts = "Starts"} else {$starts = "Does Not Start"}; $xmldrives = "$config->{Vehicle}[0]->{Drives}"; if ($xmldrives eq 1){$drives = "Drives"} else {$drives = "Does Not Drive"}; $xmlkeys = "$config->{Vehicle}[0]->{Keys}"; if ($xmlkeys eq 1){$keyssupplied = "yes"} else {$keyssupplied = "No"}; $image1 = "$config->{Vehicle}[0]->{Images}->{Image_1}"; $image2 = "$config->{Vehicle}[0]->{Images}->{Image_2}"; $image3 = "$config->{Vehicle}[0]->{Images}->{Image_3}"; $image4 = "$config->{Vehicle}[0]->{Images}->{Image_4}"; $image5 = "$config->{Vehicle}[0]->{Images}->{Image_5}"; $image6 = "$config->{Vehicle}[0]->{Images}->{Image_6}"; $image7 = "$config->{Vehicle}[0]->{Images}->{Image_7}"; $image8 = "$config->{Vehicle}[0]->{Images}->{Image_8}"; $image9 = "$config->{Vehicle}[0]->{Images}->{Image_9}"; $image10 = "$config->{Vehicle}[0]->{Images}->{Image_10}"; $image11 = "$config->{Vehicle}[0]->{Images}->{Image_11}"; $image12 = "$config->{Vehicle}[0]->{Images}->{Image_12}"; ###########Write CSV############ $opath = "e:/out/" ; $ipath = "e:/in/" ; $add='0'; $add2='xx.csv'; $add5=''; $lineno = 10; $add5 = $exportid.$lineno ; $add3 = $opath.$exportid.$lineno.$add2 ; $add6 = "xx"; $mileage =~ tr/,//d ; print "Content-type: text/html\n"; print "\n"; open (FILENAME,">$add3"); print FILENAME "Ref No,Make,Model,Trim,Vehicle Sub Class,Colour,Engine Size,Fuel Type,Transmission,Year,Mileage,Registration No,Keys Supplied,Damage Report,VAT Applicable,Condition,FSH,ABI Category,Reserve,Chassis No,Vehicle Source,Agent,Region,Vehicle Location,Source Name,Date Approved\n"; print FILENAME "$add5,$make,$model,$trim,$doors,$colour,$cc,$fueltype,$transpeed $trantypr,$year,$mileage,$reg,$keyssupplied,$damage,$hasvat,$starts $drives,No,$abicat,$reserve,na,$memid,$memid,$memid,$memid,$auctionid,na,\n"; close FILENAME ; print "Done!"; ##

##






	
	005
	9376
	
	
	25020
	
	155809
	
	1477980
	
	FORD
	
	FIESTA
	
	MV04xxx
	
	2004
	
	SILVER/BLACK
	
	Petrol
	
	FRONT AND O/S
	
	3
	
	Hatchback
	
	1388
	
	39,260
	
	5 Speed
	
	Manual
	
	LEATHER
	
	
	
	C
	
	886
	
	0
	
	0
	
	1
	
	1
	
	1
	
	0
	
	1
	
	0
	
	24.07.2009
	
	BURSCOUGH
	
	YES
	
	0
	
	0
	
	742281.jpg
	
	742285.jpg
	
	742286.jpg
	
	742282.jpg
	
	742283.jpg
	
	742284.jpg
	
	742287.jpg
	
	
	
	
	
	
	
	
	
	
	
	
	25019
	
	156171
	
	1480714
	
	TOYOTA
	
	RAV 4
	
	DG52xxx
	
	2002
	
	Blue
	
	Petrol
	
	FRONT
	
	3
	
	4X4
	
	1794
	
	66,876
	
	5 Speed
	
	Manual
	
	CLOTH
	
	
	
	U
	
	954
	
	0
	
	0
	
	1
	
	1
	
	1
	
	0
	
	1
	
	0
	
	24.07.2009
	
	BURSCOUGH
	
	YES
	
	0
	
	0
	
	742273.jpg
	
	742277.jpg
	
	742278.jpg
	
	742274.jpg
	
	742275.jpg
	
	742276.jpg
	
	742280.jpg
	
	
	
	
	
	
	
	
	
	
	
	
        
	39
	20.07.2009 12:52:09