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.
[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]
