Hi All, I am very new to Perl, but I sense a great adventure ahead after just programming with Cobol, Pascal, and C over the last umpteen years. I have written a perl script where I am trying to detect a non-printing character(Ctrl@ - Ctrl_) and then substitute a printing ASCII sequence such as "^@" in its place, but it does not seem to work as I would like. Any advice would be greatly appreciated.
Thank You....Eric Sand $in_ctr=0; $out_ctr=0; while ($line = <STDIN>) { chomp($line); $in_ctr ++; if ($line = s/\c@,\cA,\cB,\cC,\cD,\cE,\cF,\cG,\cH,\cI,\cJ,\cK, \cL,\cM,\cN,\cO,\cP,\cQ,\cR,\cS,\cT,\cU,\cV,\cW, \cX,\cY,\cZ,\c[,\c\,\c],\c^,\c_ /^@,^A,^B,^C,^D,^E,^F,^G,^H,^I,^J,^K, ^L,^N,^N,^O,^P,^Q,^R,^S,^T,^U,^V,^W, ^X,^Y,^Z,^[,^\,^],^^,^_/) { $out_ctr ++; printf("Non-printing chars detected in: %s\n",$line); } } printf("Total records read = %d\n",$in_ctr); printf("Total records written with non-printing characters = %d\n",$out_ctr); -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>