Shell Programming and Scripting

hi
i am using perl on windows ( active state perl 5.8 ) and i want to check for Control-M (^M) in file. files to be checked are in unix format so new line character is (\n). This perl script is called from Batch file ( windows .BAT file )
my script is

Code:

          while (<PROGRAM>) {
                  chomp $_ ;
                  if ( /^M/ ) {  # ^M - control-v + control-M
	         $useError = $1 ;
                      $checkFail++ ;
                      printf STDOUT "LineNo %6d : [$_] - \'Cntl+M\' used.\n", $. ;
                  }
             }
             close PROGRAM ;

this script is not working because when i do chomp perl removes ^M ( as its a new line character in windows ) so how can i check for ^M on windows perl ? ( it works if ^M is in between line )

reason i am doing this on windows is that this BATCH file is executed when somebody check in file into PVCS ( which is on windows server ) as all files are for unix servers they should not have ^M and i cant use SFU perl if i do that then i have to make sure that everyone using PVCS should have SFU installed on their system. so you must be wondering who puts ^M in this case some times people opens the file in notepad and then saves the file.

you can remove them in unix using dos2unix

Code:

sed -e 's/^M//g' file > newfile

^M must me untered with CTRL+V, CTRL+M

i dont want to remove ^M what i want is when user runs this script with 1 input parameter as file to be checked for ^M it should tell if file hash ^M or not ..

like

Code:

$ ./check.pl test.lst
LineNo     42 : [       xxxxxxxxxxxxxxxxx xxxxxxx ^M] - 'Cntl+M' used.
1 Lines needs to be changed.

and i can not use Unix commands here not even sed,awk i only have perl ( windows version ) installed. this script is wrapped in windows BATCH file.

Code:

#!/usr/bin/perl
while (<>) {
   print if $_ =~ /\cM\n/g;;
}

# if you want to remove it
#while (<>) {
 #  print if $_ =~ s/\cM\n/\n/g;;
#}

hey thanx for the reply this code works perfectly on UNIX but when i execute it on windows it does not work. in both the cases same file was used.

even the code i have written works ...but not on windows ..

in windows, it should not be ^M. you can try \r\n . otherwise, i am out of ideas