Perl Style: Break Programs into Separate Processes

  • Learn how to use the special forms of open. (See also tgent in TSA).

        # from PCB 16.5
        head(100);
        sub head {
            my $lines = shift || 20;
            return if $pid = open(STDOUT, "|-");
            die "cannot fork: $!" unless defined $pid;
            while (<STDIN>) {
                print;
                last if --$lines < 0;
            }
            exit;
        }
    

Forward to Data-Oriented Programming
Back to Break Complex Tasks Up
Up to index

Copyright © 1998, Tom Christiansen All rights reserved.

Tags

Feedback

Something wrong with this article? Help us out by opening an issue or pull request on GitHub

TPRF Gold Sponsor
TPRF Silver Sponsor
TPRF Bronze Sponsor