Intercepting the PIPE signal : PIPE « File « Perl






  1. Perl
  2. File
  3. PIPE

Intercepting the PIPE signal

    

#!/usr/bin/perl

use strict;

my $ok = 1;
$SIG{PIPE} = sub { undef $ok };

open (PIPE,"| yourFile.txt") or die "Can't open pipe: $!";
select PIPE; 
$|=1; 
select STDOUT;

my $count = 0;
for ($_=1; $ok && $_ <= 10; $_++) {
  warn "Writing line $_\n";
  print PIPE "This is line number $_\n" and $count++;
  sleep 1;
}
close PIPE or die "Can't close pipe: $!";

print "Wrote $count lines of text\n";








Related examples in the same category

1.Ignoring PIPE exceptions.
2.Piping Data Between Processes