如何通过php和perl打开应用程序？

I am trying to print generated forms / receipts through PHP (the printers will be installed on the server, I am not attempting to print to a user's local printer). I have decided to try the following methodology:

IN PHP:

  1. Generate a PDF file and save it on the server.
  2. Call a perl script to print said PDF file.

IN perl:

  1. Use system() to "open" Reader and print the given PDF silently.

What works:

  • I can generate PDFs in PHP.
  • I can call a perl script.
    • If the script has errors, they report to the browser window. ie: If I purposely change file paths it fails, and reports the appropriate reason.
  • functions such as printf seem to work fine as the output displays in the browser.
  • The exact same perl script (with the "non-functioning" line mentioned below) works properly when executed from the command line or the IDE.

What doesn't work:

  • In perl: system('"C:\\Program Files (x86)\\Adobe\\Reader 10.0\\Reader\\AcroRd32.exe" /N /T "C:\\test.pdf" 0-XEROX');

What happens:

  • NOTHING! I get no errors. It just flat out refuses to open Adobe Reader. All code below this line seems to run fine. It's like the function is being ignored. I am at a loss as to why, but I did try a few things.

What I've tried:

  • Changed permissions of the AcroRd32.exe to Everyone - Full Control.
  • Output the $? after the system() call. It is 1, but I don't know what 1 means in this case.
  • Verified that there are no disable_functions listed in php (though I think this is unrelated as shell_exec seems to be working, since some of the perl code is ran).
  • Various other configurations that at least got me to the point where I can confirm that PHP is in fact calling the perl script, it just isn't running the system() call.

Other info:

  • Apache 2.2.1.7
  • PHP 5.35
  • Perl 5.12.3 built for MSWin32-x86-multi-thread
  • WampServer 2.1

I'm at a loss here, and while it seems like this is an Apache / permissions problem, I cannot be sure. My experience with Apache is limited, and most of what I find online is linux commands that don't work in my environment.

Try this:

my @args = ('C:/Program Files (x86)/Adobe/Reader 10.0/Reader/AcroRd32.exe');
if (system(@args) != 0) {
    # Can't run acroread.  Oh Noes!!!
    die "Unable to launch acrobat reader!
";
}

The thing about system() is that it does two different things depending on the number and type(s) of argument it gets. If the argument is an array or if there are multiple arguments, Perl assumes the first is the program to run with the rest as its arguments and it launches the program itself.

If, however it's just one string, Perl handles it differently. It runs your command-line interpreter (typically CMD.EXE on Windows) on the string and lets it do what it wants with it. This becomes problematic pretty quickly.

Firstly, both Perl and the shell do various kinds of interpolation on the string (e.g. replace '//' with '/', tokenize by space, etc.) and it gets very easy to lose track of what does what. I'm not at all surprised that your command doesn't work--there are just so many things that can go wrong.

Secondly, it's hard to know for sure what shell actually gets run on Windows or what changes Perl makes to it first. On Unix, it usually doesn't matter--every shell does more or less the same with simple commands. But on Windows, you could be running raw CMD.EXE, GNU Bash or some intermediate program that provides Unix-shell-like behaviour. And since there are several different ports of Perl to Windows, it could well change if you switch.

But if you use the array form, it all stays in Perl and nothing else happens under the hood.

By the way, the documentation for system() and $? can be found here and here. It's well worth reading.