On Sun, 04 Mar 2001 05:32:25 -0500, Scott R. Godin wrote:
>tried to syntax-check this JAPH of Abigail's and MacPerl not only choked on
>it but started writing itty-bitty lines of nonsense graphical data to the
>center of the screen.
>
>sub f{sprintf$_[0],$_[1],$_[2]}print
>f('%c%s',74,f('%c%s',117,f('%c%s',115,f('%c%s',116,f('%c%s',32,f('%c%s',97,f
>('%c%s',0x6e,f('%c%s',111,f('%c%s',116,f('%c%s',104,f('%c%s',0x65,f('%c%s',1
>14,f('%c%s',32,f('%c%s',80,f('%c%s',101,f('%c%s',114,f('%c%s',0x6c,f('%c%s',
>32,f('%c%s',0x48,f('%c%s',97,f('%c%s',99,f('%c%s',107,f('%c%s',101,f('%c%s',
>114,f('%c%s',10,)))))))))))))))))))))))))
First of all, you have a bad line wrap, after the second line. The 114
shouldn't be split across two lines.
And second, try replacing the 10 at the end with 13. Yup, that's a "\n".
It works for me, even with the "10". I just get a little block character
at the end of the line.
--
Bart.
