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 | #
|
---|
13 | while(<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.