ot;);
while () { # Go through your input file line by line
print FNAME if /\cM/g # and print to FNAME if it finds ^M
}
Cheers
Mark C
> -Original Message-
> From: Jeanne Riley [mailto:[EMAIL PROTECTED]]
> Sent: 22 June 2001 11:21
> To: '[EMA
Hi,
I need to detect ^M(s) in a file and send the output to a file. I am
extremely new to Perl. This is what I have which incidentally is not
working...
open(FNAME,">grepoutput.txt");
cat $CHECKIN_FILENAME | grep "/\cM/g" >FNAME;
The error message I get is that there are not enough arguments
