Perl

Cntrl-C

CNTRL-C

my $caught_stop = 0;

$SIG{'INT'} = sub { $caught_stop=1; };

if ( $caught_stop==1 ) {

stop_varon();

print "\033[1;31mstop \033[0m\n";

close(OUT);

close(HSOCK1);

close(HSOCK2);

die;

}

ヒアドキュメント 検索せよ

ファイルハンドルを変数に格納するには、型グロブ( * )を使います。この方法が最も簡単で処理速度も速いです。

open( FILEHANDLE, "$file_name");

$fh = *FILEHANDLE; # ファイルハンドルを変数に代入

&function(*FILEHANDLE); # 型グロブを使ってサブルーチンに渡すこともできます

http://rfs.jp/sb/perl/02/08.html