source: qrda/qds/sno2rdf.pl@ 928

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

intial conversion of QDS spreadsheets to cvs and rdf

File size: 381 bytes
Line 
1#!/usr/bin/perl -w
2
3print "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n";
4print "<snomed>\n";
5while(<STDIN>)
6{
7 my($line) = $_;
8 chomp($line);
9 #print "$line\n";
10 #if ($line =~ /(\d+)\t(\d+).((\w| |\(|\))+)\t(\w+)\t/)
11 #if ($line =~ m/(^\t+)\t(^\t+)\t(^\t+)\t(^\t+)\t/)
12 {
13 print "<e c=\"" . $1 . "\" n=\"" . $3 . "\" \/>" . "\n";
14 }
15}
16print "</snomed>\n";
Note: See TracBrowser for help on using the repository browser.