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

#!/usr/bin/perl -w
#this only works part way. it replaces two blanks plus whitespace with |
#have to clean up multi-line cells by hand. sorry. gpl
#
#this software is copyright George Lilly 2010 and is available as GPL
#its home is https://trac.opensourcevista.net/browser/hData/trunk/test-patients
#
#purpose: convert text files of test patients published to the public by
#NIST to cvs format. First part of a chain of conversions which will create
#hData versions of the test patients. Also generate wiki-formatted versions
#to put on VistAPedia. 
#
while(<STDIN>)
{
    my($line) = $_;
    chomp($line);
    chop($line);
    $line =~ s/^  *\s//g;
    $line =~ s/^Product/\|Product/;
    $line =~ s/  *\s/\|/g;
    print "$line\n";
}