Programming Perl, 4th Edition

Anonymous Pipes

Perl’s open function opens a pipe instead of a file when you append or prepend a pipe symbol to the second argument to open. This turns the rest of the arguments into a command, which will be interpreted as a process (or set of processes) that you want to pipe a stream of data either into or out of. Here’s how to start up a child process that you intend to write to:

open SPOOLER, "| cat –v | lpr –h 2>/dev/null"
     || die "can't fork: $!";
 local $SIG{PIPE} = sub { die "spooler pipe broke" };
 print SPOOLER "stuff\n";
 close SPOOLER || die "bad spool: $! $?";

This example actually starts up two processes, the first of which (running cat) we print to directly. The second process (running lpr) then receives the output of the first process. In shell programming, this is often called a pipeline. A pipeline can have as many processes in a row as you like, as long as the ones in the middle know how to behave like filters; that is, they read standard input and write standard output.

Perl uses your default system shell (/bin/sh on Unix) whenever a pipe command contains special characters that the shell cares about. If you’re only starting one command, and you don’t need—or don’t want—to use the shell, you can use the multiargument form of a piped open instead:

open SPOOLER, "|–", "lpr", "–h"    # requires 5.6.1
    || die "can't run lpr: $!";

If you reopen your program’s standard output as a pipe to another program, anything you subsequently print to STDOUT will be standard input for the new ...