> Paul Kraus wrote: > > Interesting.... When I run the script on my windows box > (5.6.1) I get > > this output > > DEBUG : NON PRINT ACHAR -011747 - > > DEBUG : NON PRINT ACHAR -Eco-Liner w/Att A=30-35 B=23-29cm > - DEBUG : > > NON PRINT ACHAR -139.45- > > > > Same script same source file run on sco openserver 5 (5.6.0) I get > > this output > > DEBUG : NON PRINT ACHAR -011747 - > > DEBUG : NON PRINT ACHAR -Eco-Liner w/Att A=30-35 B=23-29cm > - DEBUG : > > NON PRINT ACHAR -139.45- DEBUG : NON PRINT ACHAR -\xd20- > > This is what I said - '\x0D', a carriage return. The '20' is > because of a mistake in your Perl, see below.
You know what you're right. I remember the guy I got that from sending me a correction later for the same reason. It's been too long, sorry for the mix up. Thanks for the correction. I'll correct my notes. Dang Rob gets genius again! I just can't win today! :) > > [snip] > >> > >> ($tmp = $line) =~ s/([^\x20-\x7E])/'\x' . sprintf "%x20", > ord $1/ge; > >> print "DEBUG : NON PRINT ACHAR -$tmp- <br> \n"; > > That substitute should be: > > s/([^\x20-\x7E])/'\x' . sprintf "%02x", ord $1/ge; > > (Note the sprintf() format) > > Cheers, > > Rob > > > > > > > -- > To unsubscribe, e-mail: [EMAIL PROTECTED] > For additional commands, e-mail: [EMAIL PROTECTED] > > -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
