|
Last change
on this file since 1734 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
|
| Rev | Line | |
|---|
| [1020] | 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.
