#!/usr/bin/perl
use strict;
use warnings;

use Text::CSV_XS;
my $csv = Text::CSV_XS->new();

my $file = '';
if (defined $ARGV[0]) {
    $file = $ARGV[0];
}

open(my $data, '<', $file) or die "Could not open '$file'\n";
while (my $line = <$data>) {
    if ($csv->parse($line)) {
        my @columns = $csv->fields();

        ## set vars
        my $orderNumber = $columns[0];
        my $name = $columns[1];
        my $itemId = $columns[2];
        my $itemDesc = $columns[3];
        my $price = $columns[4];

        open (OUTFILE, "> output/$orderNumber.xml") or die $! . " can't open the file\n";
#print OUTFILE <<XML;
            print OUTFILE "<order>\n";
            print OUTFILE  "  <order_id>$orderNumber</order_id>\n";
            print OUTFILE  "  <name>$name</name>\n";
            print OUTFILE  "  <item>\n";
            print OUTFILE  "    <item_id>$itemId</item_id>\n";
            print OUTFILE  "    <item_desc>$itemDesc</item_desc>\n";
            print OUTFILE  "    <price>$price</price>\n";
            print OUTFILE  "  </item>\n";
            print OUTFILE  "</order>\n";

#XML
    close (OUTFILE);
    } 
    else {
        warn "Line could not be parsed:\n";
    }
}