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]
