Re: [MacPerl] regular expressions and formatting text

[Detlef Lindenthal]

Hi Bart,

thank you for your good script.

Because of this error message
   Perl 5.00564 required--this is only version 5.004, stopped.
I changed your script a bit; I replaced the lines
   use Data::Dumper;
   print "Record: $id\n", Dumper $record;
by the line
    print "\n\n(Record:) $id\n",   join "\n", %$record;

And instead of
   my %field = ( '3070050' =>  'Diagnosis',   '3070055' =>  'Comment'  );
I added some parens and colons:
   my %field = ( '3070050' => '(Diagnosis:)', '3070055' => '(Comment:)');

In case Katherine too gets stranded because of version 5.004 this could be helpful.


Detlef