Hi
Thanks for your reply
In my input file CONTROL_M character's are found inside the line also.
When i try it by dos2ux it removed CONTROL_M character's inside line also.
And my concern is to remove only CONTROL_M character and not any other special characters.
Kindly advise how to proceed, also how to speed up the process by using below code.
$self->remove_controlM($infile);
sub remove_controlM
{
my $self = shift;
my $in_file = shift;
my $out_file = $in_file . "controlM_removed";
open(my $FH_IN, '<', $in_file) or die "Failed to open $in_file $!\n
+";
print "REMOVE CONTROL_M CHARACTER PROCESS STARTING";
open(my $FH_OUT, '>', $out_file) or die "Failed to write $out_file
+$!\n";
while (<$FH_IN>)
{
s/\r//g;
print($FH_OUT $_);
}
close ($FH_IN);
close ($FH_OUT);
unlink($in_file);
`mv $out_file $in_file`;
print "REMOVE CONTROL_M CHARACTER PROCESS ENDING";
}
Thanks, Shanmugam A. |