Re: [MacPerl] Printing Postscript Direct.

[ajf@afco.demon.co.uk (Alan Fry)]

In  <v01540b00ae93db586f5d@[158.152.45.245]> Richard Padley wrote:
>
>Is there any way I can write a mac perl script which will sent postscript
>directly to the currently selected printer. I know this sounds specialised,
>but I am generating postscript using TeX and dvips, and I want to send it
>to the printer with no user intervention.

These lines:

        open(PRINTER, "+>Dev:Printer") || die "$!\n";
        select((select(PRINTER), $|=1, $/="\012")[0]);

used to work with MacPerl 4.1.8, but seems not to with MacPerl 5.0.7 or
5.1.0r2b2.

Is there anyway of doing this in MacPerl 5 does anyone know?

Alan Fry