Open pipe for writing


Connect to STDIN of grep


examples/shell/pipe_grep.pl
#!/usr/bin/perl
use strict;
use warnings;

open my $ph, '|-', 'grep Perl ' or die "Cannot start process";
print $ph "aa\n";
print $ph "Perl was here\n";
print $ph "bb\n";
print $ph "ccPerl\n";
close $ph;