Try it like this... I was a slacker and didn't have warnings
in place if it couldn't open the file... Should be able
to just change the "/my/stuff/" to your directory and have it
work, I tested it here, and it seems to go fine. (on an aix
box - maybe I have something in place that doesn't work on
windows or other platforms?)
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") or die "Can't open $file: $!";
$newfile = $file . "_nice";
open (NEWFILE, "> $newfile") or die "Can't open $newfile: $!";
while ($line = <OLDFILE>) {
($line) = ($line =~ /^\s*(.*)\s*\n$/);
print NEWFILE "$line\n";
}
close OLDFILE;
close NEWFILE;
}
-----Original Message-----
From: Marshall, Stephen [mailto:[EMAIL PROTECTED]
Sent: Thursday, September 04, 2003 11:11 AM
To: Marshall, Stephen; Akens, Anthony; '[EMAIL PROTECTED]';
'[EMAIL PROTECTED]'; '[EMAIL PROTECTED]'
Subject: RE: Getting rid of white space...
Got it working this way fror the important line, but theres probably a slicker way of
doing it.
$line =~ s/(\s)+/ /g;
> -----Original Message-----
> From: Marshall, Stephen
> Sent: 04 September 2003 17:07
> To: 'Akens, Anthony'; [EMAIL PROTECTED];
> [EMAIL PROTECTED]; [EMAIL PROTECTED]
> Subject: RE: Getting rid of white space...
>
>
> I have a similar problem to this , does anyone have another
> answer? Don't know if its just me but The
>
> > use strict;
> > while(my $line = <>) {
> > ($line) = ($line =~ /^\s*(.*)\s*\n$/);
> > print($line."_nice/n");
> > }
>
> Code doesn't work , and the enhanced version with the fancy
> file handling doesn't work either "trying to read from a
> closed filehandle error"
>
> Stephen
>
> > -----Original Message-----
> > From: Akens, Anthony [mailto:[EMAIL PROTECTED]
> > Sent: 04 September 2003 15:55
> > To: [EMAIL PROTECTED]; [EMAIL PROTECTED];
> > [EMAIL PROTECTED]
> > Subject: RE: Getting rid of white space...
> >
> >
> > 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]
> >
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
