http://qs1969.pair.com?node_id=800825


in reply to piping to lp is broken after perl upgrade

I don't see an issue in the code you've shown except that you're not using strictures (use strict; use warnings;). It wouldn't surprise me a great deal to find that there is something that was waiting in your heredoc to bite and has now bitten. It may help if you:

my $prolog = << 'ENDPROLOG';

[download]

so interpolation doesn't happen.

True laziness is hard work

Replies are listed 'Best First'.
Re^2: piping to lp is broken after perl upgrade
by myuserid7 (Scribe) on Oct 14, 2009 at 20:51 UTC
    Thanks for your reply.

    I created a files called test.ps. 

    $ cat test.ps 
%!PS
/Courier findfont
20 scalefont
setfont
72 500 moveto
(Hello world!) show
showpage

    [download]
    If I send it to the printer, it works. I get a Hello World.

    So here is a recreation of the script that is failing. 

    #!/opt/csw/bin/perl -w

use strict;
use warnings;

my $prolog = <<ENDPROLOG;
%!PS
/Courier findfont
20 scalefont
setfont
72 500 moveto
(Hello world!) show
showpage
ENDPROLOG
my $PRINT_CMD = '/usr/bin/lp -o nobanner';
open my $output, '|-', $PRINT_CMD
    or die "Can't open pipe to $PRINT_CMD: $!";
print $output $prolog;
close $output or warn "Error while closing pipe to $PRINT_CMD: $!";

    [download]
[reply]
[d/l]
[select]
      I ended up abandoning the use the csw perl for this script. Instead, I pulled the 5.8.9 source and complied it on my Solaris 10 machine using gcc4.

      I pointed the test script at the new compile and it started working.

      Sadly, I am not that confident in the blastwave perl now. Surely just paranoia but once bitten...

[reply]

In Section Seekers of Perl Wisdom