Converting CSV file to XML with Perl

Question

I'm trying to parse a CSV file and convert it to XML. The .csv file consists of a list of entries, separated by commas. So, two sample entries look like this:

License,Date,Mileage
04-nh-pd,17-11-2020,30000
19-tg-jr,17-11-2020,36000

Expected output:


04-nh-pd17-11-202030000KEUR
19-tg-jr17-11-202036000KEUR

My code so far:

#!perl
use strict;
# Open the ch2_xml_users.csv file for input
open(CSV_FILE, "ch2_xmlusers.csv") || die "Can't open file: $!";

# Open the ch2_xmlusers.xml file for output
open(XML_FILE, ">ch2_xmlusers.xml") || die "Can't open file: $!";

# Print the initial XML header and the root element
print XML_FILE ') {
    chomp; # Delete the new line char for each line
    # Split each field, on the comma delimiter, into an array
    my @fields = split(/,/, $_);
  $kenteken .= <<"EOF";
    $fields[0]$fields[1]$fields[2]$fields[3]
    
EOF
}

print XML_FILE "
".$kenteken."
";


# Close all open files
close CSV_FILE;
close XML_FILE;

My Output so far:

LicenseDateMileage
    
    04-nh-pd17-11-202030000
    
    19-tg-jr17-11-202036000

The first line below the header and the last 2 should not be displayed in the output. Also the empty lines between the data are not correct. Can somebody help me with my script ?

vkk05 · Accepted Answer

I have made below changes to your script, see if this works for you.

Always do file operation use of lexical filehandles.
xml header line close with ..types">
There are couple of ways to skip the header of CSV file:
3.1 get rid of the pattern match for the header by reading one line into void context above the loop (as @simbabque mentioned in the comment).
3.2 If the CSV file line matches (=~) with License,Date,Mileage, then skip the line with next statement.
Instead of concatenating kentekens one by one, writing the line content with required fields at the time of csv read operation itself.

Below is the altered script:

use strict; use warnings;

no warnings 'uninitialized';

open my $CSV_FILE, "<", "ch2_xmlusers.csv" or die "Cannot open a file: $!";
open my $XML_FILE, ">", "ch2_xmlusers.xml" or die "Cannot open a file: $!";

print $XML_FILE ''."
";

my $kenteken = "";
my $csv_header = <$CSV_FILE>;

while(<$CSV_FILE>) {
    chomp; 
    my @fields = split ',', $_;
    $kenteken = <<"EOF";
$fields[0]$fields[1]$fields[2]$fields[3]   
EOF
    print $XML_FILE $kenteken;
}
close $CSV_FILE;
close $XML_FILE;

Result:


04-nh-pd17-11-202030000
   
19-tg-jr17-11-202036000

Converting CSV file to XML with Perl

Answers (2)

Related Questions