Re: 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

Comment on Re: piping to lp is broken after perl upgrade Download Code

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]
Re^3: piping to lp is broken after perl upgrade by myuserid7 (Scribe) on Oct 15, 2009 at 22:15 UTC
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]


There's more than one way to do things
	PerlMonks