如何捕获Term的Ctrl-D信号?

如何捕获Term的Ctrl-D信号?

如题, 不知道有什么方法, 请大虾赐教.
Ctrl+D 不发送信号。
那有什么方法处理Term的Ctrl-D吗?
$SIG{TERM} = sub {do something here};
好象不行.


[Copy to clipboard] [ - ]
CODE:
for(my $i=0;;){
  $_ = <>;
  if($_ == 0E0){
     print "YYY\n";
     last;
  }
}

改成上面这样.....ctrl +d 会送出EOF....其值可以透过上面方式取得....
请叁考...