Attachment 1.3.1.  PERL scripts (Clean; Read and Write)


-----------------------------------------------------------------
* source file: clean.perl

#!/usr/local/bin/perl

while ($inputline = <>) {
	$inputline =~ s/,\. /,/g ;
	$inputline =~ s/  *,/,/g ;
	print( $inputline ) ;
}

-----------------------------------------------------------------
*  source file: read.write.perl

#!/usr/local/bin/perl

while ($inputline = <>) {
	print( $inputline ) ;
}

This page hosted by Get your own Free Home Page