MacFormat 1994 November/macformat-018.iso/Utility Spectacular/Developer/Perl Tool ƒ/macscripts/sendps

Text File | 1993-10-23 | 297 b | 21 lines | [TEXT/MPS ]

Perl -Sx "{0}" {"Parameters"}
Exit
#!/usr/local/bin/perl

$| = 1;

open(PRINTER, "+>Dev:Printer") || die "couldn't open connection to laserwriter";

select((select(PRINTER), $|=1, $/="\012")[0]);

while (<>) {
    print PRINTER;
}

shutdown(PRINTER,1);

while (<PRINTER>) {
    s/\012/\015/g;
    print;
}