#!/usr/bin/perl 

use strict;
use warnings;

# $IN = "someFileName.txt"; 
my $OUT = "someOutFile.xml";

open (my $fh_out, '>', $OUT)
  or die "can't open $OUT to write: $!";
  
#open(IN) or die ("Cannot open file ($IN)");

print $fh_out <<TOP;
<?xml version="1.0" encoding="ISO-8859-1"?>
<xtags:some-node xml:lang="en">
TOP

my @columns = qw{
  category id code title summary 
  prereq group subgroup sequence 
  rolemandatory rolerecommended 
  roleoptional url modality length
};

my $id;

foreach my $row (<DATA>){
  chomp $row;  
  print $fh_out "\t<star:course>\n";
  
  my %rec;
  @rec{@columns} = split ('\|', $row);
  
  for my $colname (@columns){
    
  	printf $fh_out
  	  "\t\t<xtag:%s>%s</xtag:%s>\n",
  	  $colname,
  	  $rec{$colname},
  	  $colname;
    
  }
  
  print $fh_out "\t</xtag:course>\n";
  $id++;
  
}

print $fh_out "</star:learning-paths>\n";

print "$id records\n";

__DATA__
a|a|a|a|a|a|a|a|a|a|a|a|a|a|a
b|b|b|b|b|b|b|b|b|b|b|b|b|b|b
c|c|c|c|c|c|c|c|c|c|c|c|c|c|c
d|d|d|d|d|d|d|d|d|d|d|d|d|d|d
e|e|e|e|e|e|e|e|e|e|e|e|e|e|e
f|f|f|f|f|f|f|f|f|f|f|f|f|f|f
g|g|g|g|g|g|g|g|g|g|g|g|g|g|g