>I have taken a little classroom work in perl. I believe it is very possible
>to write a perl script to read a text file, strip the carriage return and
>linefeed and write it to another file.
>
>How would the script look?
Here's one way...
my $infile = 'path/file.ext';
open IN, "< $infile" or die "Could not open file for reading: $!";
open OUT, ">> some_file_name" or die "Could not open file for append: $!";
while (<IN>) {
$_ =~ s/[\f\r]//g;
print OUT $_;
}
close IN; #just to be...
close OUT; #...pedantic
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
