输出列表元素，结果显示Terminating on signal SIGINT(2)

bequan

下面的程序接受用户输入的行输入，然后存储到列表并依次输出，为什么程序执行时总是得到输出到Terminating on signal SIGINT(2)之后就不能正确执行了呢？出现Terminating on signal SIGINT(2)的原因是什么？
===============================
use 5.01;
use strict;
use warnings;

say "Please input a list:";
chomp( my @list = <STDIN> );

my $ite = 0;
say "\nOutput the list as following:";
while ( $list[$ite] ) {
    say "$list[$ite].";
    $ite += 1;
}

===============================
输入:
donson
clark micheal
sweety
line to line
make sure

同样的输入执行了多次，有多种输出结果，其中一次输出如下:
Output the list as following:
donson.
Terminating on signal SIGINT(2)
clark micheal.

[ 本帖最后由 bequan 于 2009-12-24 14:23 编辑 ]

bequan

Up

flw

Ctrl+d on unix like
Ctrl+z + enter on windows

not Ctrl+c

bequan

原帖由 flw 于 2009-12-24 17:07 发表
Ctrl+d on unix like
Ctrl+z + enter on windows

not Ctrl+c

OK, got it. Thanks a lot.

So, how can I filter invalid user characters such as Ctrl + C which may crash the program?
And, what's the general reason when getting message 'Terminating on signal SIGINT(2)'?

[ 本帖最后由 bequan 于 2009-12-24 17:51 编辑 ]

ioerr

谢谢，我也碰到这个问题了，先ctrl+Z，然后放开，再enter。我这样才行的，ctrl+Z+enter就一大串，不行。不知道上面那位是不是。

ioerr

为什么ctrl+C不行，能请解释下么？怎样用ctrl+C就行了，这个用的还多啊，呵呵

撒哈拉里的鱼

接管Ctrl + C信号。

唐归来

我也碰到了类似的问题，有时候Ctrl-C好使，有时候就不好使，但是Ctrl-Z就一直好使！

kk861123

自定义退出标志如何？：

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my @input;
   
6. while (my $line = <>) {
   
7.     chomp($line);
   
8.     last if $line eq 'quit'; # stop flag
   
9.     push @input,$line;
   
10. }
    
11. 
    
12. print "Got:\n";
    
13. print "$_\n" for @input;

复制代码

zhou20071801

windows下ctrl+c是终止程序回复 6# ioerr