Lonewolf wrote:
>
> I have about 12 files that I am pulling for a SCO box to a RedHat box, FTP.
> THe files from the SCO box are poorly formatted with extraneous whitespace
> (sometimes as much as 30 or more) before and after the text. I need to
> parse all of the files I DL and put them into a new file with "_nice" added
> at the end.
>
> The files are all pipe-delimited, so I don't have a problem separating the
> fields, I just am not sure how to make it remove all extra whitespace. It
> needs to keep all Space in the fields " the description of the
> file " should still be readable as "the description of the file"
>
> Any help with code examples? I have been looking through a beginning book
> and my old code and have come up nil.
#!/usr/bin/perl
use warnings;
use strict;
( $\, $^I ) = ( $/, '.bak' );
while ( <> ) {
s/^\s+//; # remove space at beginning of line
s/\s+$//; # remove space at end of line
s/\s*\|\s*/|/g; # remove space around pipe separator
print;
if ( eof ) {
close ARGV;
rename $ARGV, "${ARGV}_nice" or warn "Cannot rename $ARGV to ${ARGV}_nice: $!";
}
}
__END__
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
