source: hData/trunk/test-patients/tpat2csv.pl@ 1020

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

coversion of text files to csv. they need to be cleaned up by hane. Help anyone?

File size: 736 bytes
Line 
1#!/usr/bin/perl -w
2#this only works part way. it replaces two blanks plus whitespace with |
3#have to clean up multi-line cells by hand. sorry. gpl
4#
5#this software is copyright George Lilly 2010 and is available as GPL
6#its home is https://trac.opensourcevista.net/browser/hData/trunk/test-patients
7#
8#purpose: convert text files of test patients published to the public by
9#NIST to cvs format. First part of a chain of conversions which will create
10#hData versions of the test patients. Also generate wiki-formatted versions
11#to put on VistAPedia.
12#
13while(<STDIN>)
14{
15 my($line) = $_;
16 chomp($line);
17 chop($line);
18 $line =~ s/^ *\s//g;
19 $line =~ s/^Product/\|Product/;
20 $line =~ s/ *\s/\|/g;
21 print "$line\n";
22}
Note: See TracBrowser for help on using the repository browser.