On Friday, August 30, 2002, at 12:51 , Omanakuttan wrote:
> I am trying to strip off ^Ms from a number of text files.
> The following does not seem to work. any suggestions?
[..]
> Thank you.
my favorite generic solution is:
http://www.wetware.com/drieux/pbl/RegEx/eolOut.txt
my $cr =
On Sat, 31 Aug 2002, Sudarshan Raghavan wrote:
>
> I guess your filenames are in @ARGV array, your shift inside the while
> suggests it either @ARGV or @_. If it is @ARGV you can do this
If it is @_ you will have to do this before the while in your sub
local @ARGV = @_;
>
> $^I = '~';
> whil
On Fri, 30 Aug 2002, Omanakuttan wrote:
> I am trying to strip off ^Ms from a number of text files.
> The following does not seem to work. any suggestions?
>
> my $filename ;
> while ($filename = shift) {
> open (INF, $filename) or die "Could not open $filename. $!" ;
> my @file = ;
> close
Omanakuttan wrote:
> I am trying to strip off ^Ms from a number of text files.
> The following does not seem to work. any suggestions?
>
> my $filename ;
> while ($filename = shift) {
> open (INF, $filename) or die "Could not open $filename. $!" ;
> my @file = ;
> close INF ;
> open (OUT, "
I am trying to strip off ^Ms from a number of text files.
The following does not seem to work. any suggestions?
my $filename ;
while ($filename = shift) {
open (INF, $filename) or die "Could not open $filename. $!" ;
my @file = ;
close INF ;
open (OUT, ">$filename") or die "Could not open $
