in reply to My pipe gets the SIGINT. And I dont want that...
By pressing ctrl-c it prints out 1 to 9 and the last time it dies..#!/usr/bin/perl -w use strict; $|=1; my $i=0; $SIG{INT} = sub { print $i++ if $i < 10; die if $i == 10}; while (1) { sleep (5) }
|
|---|