Beefy Boxes and Bandwidth Generously Provided by pair Networks Frank
Welcome to the Monastery

Comment on

#!/bin/perl # I wrote this script to enable printing from XEmacs, which expects # a printing command which accepts text from *standard input*. # So, this script reads the standard input, diverts it to a file, # then calls Windows NT lpr with this file and any options given # on the command line. my $command = "lpr"; srand; # seeds the random number generator # lpr expects interprets its arguments in the DOS context, taking back +slashes $filestub = "\\tmp\\lp".(time%10000)."."; do { $filename = $; } while (-e $filename); open SLURP, ">$filename"; print SLURP <STDIN>; # put everything from stdin into this file close SLURP; my @args = ($command, @ARGV, $filename); system(@args) == 0 or die "system @args failed: $?"; unlink $filename;

In reply to XEmacs printing script by macguges

and:  <code> code here </code>

  • Please read these before you post! —
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Log In?

    What's my password?
    Create A New User
    and the web crawler heard nothing...

    How do I use this? | Other CB clients
    Other Users?
    Others imbibing at the Monastery: (5)
    As of 2014-03-17 04:15 GMT
    Find Nodes?
      Voting Booth?

      Have you used a cryptocurrency?

      Results (340 votes), past polls