Mega Code Archive

 

Categories / Perl / File

 

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";