Ignoring PIPE exceptions. : PIPE « File « Perl

1. Perl
2. File
3. PIPE

Ignoring PIPE exceptions.

    


#!/usr/bin/perl

use strict;

$SIG{PIPE} = 'IGNORE';

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

my $count=0;
for (1..10) {
  warn "$_\n";
  if (print PIPE "number $_\n") {
    $count++;
  } else {
    warn "An error occurred during writing: $!\n";
    last;
  }
  sleep 1;
}
close PIPE or die "Can't close pipe: $!";

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

   
    
    
    
  

Related examples in the same category