#!/usr/bin/perl -w
# http://www.bized.ac.uk/dataserv/cp-vars.htm

use Text::CSV; 

my $file = shift || 'newdata.asc';
open (IN,$file) || die "Can't load data $file";

my @rows = <IN>;

my $fields = shift @rows;
my $csv = Text::CSV->new();  
my $status = $csv->parse($fields);  
my @c = $csv->fields();

my %fields;
for (my $i=0; $i<scalar @c; $i++) {
  $fields{$i}= $c[$i]  ;
#  print "Storing: ". $c[$i]. " -> $i \n";
}

print "<rdf:RDF xmlns:rdf=\"http://www.w3.org/1999/02/22-rdf-syntax-ns#\" xmlns:fc=\"http://xmlns.com/foaf/corp#\" xmlns=\"http://xmlns.com/foaf/corp#\">\n\n";
print "<!-- company report data from bized.ac.uk, RDFized by danbri\@w3.org --> \n\n";
print "<!-- disclaimer: for educational and research purposes only, use at own risk etc etc --> \n\n";

foreach my $row (@rows) {
  my $csv = Text::CSV->new();  
  my $status = $csv->parse($row);  
  my @cols = $csv->fields();
  print "\n\n<CompanyReport>\n";
  for ($i=0; $i< scalar @cols; $i++) {
    my $tag =  $fields{$i}; 
    my $data = $cols[$i] ;
    $data =~ s/&/&amp;/g;
    $data =~ s/</&lt;/g;
    $data =~ s/>/&gt;/g;
    $tag = lc($tag);
    print "  <$tag>$data</$tag>\n" if $data;
  }
  print "</CompanyReport>\n";
  print "\n";
}

print "</rdf:RDF>\n\n";