RegEx for ^M 1

[max1x]

The output from a DB is spitting out ^M as the end of some recordsets, which is causing some issues with data handling from a flat file. I need to detect all the data entry points with this issue vs just fix it.

print $_ if ($_ !~ /[a-z0-9]$/i); but this is not working for me.

P.S: I don't have access to the DB.

 

[PaulTEG]

if (/\r/) {
  print "we have a carriage return in there";
}

HTH
--Paul

Paul
------------------------------------
Spend an hour a week on CPAN, helps cure all known programming ailments ;-)

 

[dmazzini]

$line=~ s/\r//g; #Fix it

dmazzini
GSM System and Telecomm Consultant

 

[max1x]

Thanks Paul & dmazzini, sometimes u just need a fresh pair of eyes to look at the issue , slipped my mind...