23 lines
736 B
Perl
23 lines
736 B
Perl
#!/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";
|
|
}
|