in reply to Re^2: Please find out the mistake in substitution function in the code??
in thread Please find out the mistake in substitution function in the code??

I had to look at that again; of course you're right. But only lines for which the substitution is performed will print. I think that is not exactly what is wanted. Perhaps more like:

while(...) {
  s/.../.../;
  print OUT;
}

[download]

The lines with recognized codes will be corrected; lines without codes will still be copied to the output.

Dum Spiro Spero
  • Comment on Re^3: Please find out the mistake in substitution function in the code??
  • Download Code

In Section Seekers of Perl Wisdom