Re^2: How to make `system` not ignore SIG INT in Perl?

Try this,seems it's not working for complex case:

perl -we 'while(1){system("echo " . "1 "x 10000 . "|more");exit if ($?
+ & 127) == 2;}'
[download]

Comment on Re^2: How to make `system` not ignore SIG INT in Perl? Download Code

Replies are listed 'Best First'.
Re^3: How to make `system` not ignore SIG INT in Perl? by Corion (Patriarch) on Sep 13, 2011 at 07:08 UTC
The added pipe means that there now sits a shell between your program and the child processes. I would assume that the shell does not pass on the exit status of its children.	[reply]
Re^4: How to make `system` not ignore SIG INT in Perl? by salva (Canon) on Sep 13, 2011 at 07:50 UTC
It does!: `$ perl -E 'system "sleep 3 \| tail "; say $?' ^C2` [download]	[reply] [d/l]