source: qrda/qds/qds2rdf.pl~@ 1283

Last change on this file since 1283 was 902, checked in by George Lilly, 14 years ago

intial conversion of QDS spreadsheets to cvs and rdf

File size: 433 bytes
RevLine 
[902]1#!/usr/bin/perl -w
2
3print "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n";
4print "<qds>\n";
5while(<STDIN>)
6{
7 my($line) = $_;
8 chomp($line);
9 push @gpl1, split(/\|/);
10 #print "$_\n" for @gpl1;
11 my ($NQFid, $name, $QDSid, $concept, $cat, $QDSdt, $conceptid, $tax, $taxver, $codes, $QDSattr) = @gpl1;
12 print "$name $concept $tax $codes\n";
13 @gpl1 = ()
14 #print "@gpl1[1]_@gpl1[2]_@gpl1[3]\n";
15}
16print "</qds>\n";
Note: See TracBrowser for help on using the repository browser.