#----------------------------- |
# the signal handler |
sub ding |
{ |
$SIG { INT } = \&ding; |
warn "\aEnter your name!\n" ; |
} |
# prompt for name, overriding SIGINT |
sub get_name |
{ |
local $SIG { INT } = \&ding; |
my $name ; |
print "Kindly Stranger, please enter your name: " ; |
chomp ( $name = <> ); |
return $name ; |
} |
#----------------------------- |
by: 发表于:2017-09-18 17:50:36 顶(0) | 踩(0) 回复
??
回复评论