I figured I'd take a stab at fleshing this out into what he wants...
Any comments on things I could do better? I only added to what
Robert had coded...
Tony
#!/usr/bin/perl -w
use strict;
my $dirname = "/my/stuff/";
my $file;
my $newfile;
my $line;
opendir (DIR, $dirname) or die "Can't opendir $dirname: $!";
while (defined($file = readdir(DIR))) {
next if $file =~ /^\.\.?$/;
open (OLDFILE, "< $file");
$newfile = $file . "_nice";
open (NEWFILE, "> $newfile");
while ($line = <OLDFILE>) {
($line) = ($line =~ /^\s*(.*)\s*\n$/);
print NEWFILE "$line\n";
}
close OLDFILE;
close NEWFILE;
}
-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Sent: Thursday, September 04, 2003 8:32 AM
To: [EMAIL PROTECTED]; [EMAIL PROTECTED]
Subject: RE: Getting rid of white space...
are you speaking of this?
use strict;
while(my $line = <>) {
($line) = ($line =~ /^\s*(.*)\s*\n$/);
print($line."_nice/n");
}
-----Original Message-----
From: LoneWolf [mailto:[EMAIL PROTECTED]
Sent: Thursday, September 04, 2003 3:38 PM
To: [EMAIL PROTECTED]
Subject: Getting rid of white space...
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.
Thanks,
Robert
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
