view release on metacpan or  search on metacpan

ctransition  view on Meta::CPAN

my $time0 = time ; 
my $help = 0  ; # オンラインヘルプの文面の表示をしたか否か。
my $head ;
$o{i} //= "\t" ;
my $readLines = 0 ; # 読み取った行数
my $optL0 = ($o{l}//'') eq 0 ? 1 : 0 ;
$o{'@'} //= 15 ; # 何秒おきにアラームを発生させるか
$o{0} //= '-' ; # 出力表において、頻度が 0 の場合に、どんな値を出力するかを表す。
$o{q} //= "'" ; # 出力する文字を前後で囲む文字。

binmode STDOUT, ":utf8" ;

$SIG{INT} = sub { exit } ;
$SIG{ALRM} = sub { 
  my $n = $.  =~ s/(?<=\d)(?=(\d\d\d)+($|\D))/,/gr ; # 3桁ごとに区切る。
  say STDERR GREEN "$n lines read ($Script). " , scalar localtime ; 
  alarm $o{'@'} 
} ; 
alarm $o{'@'} ;

my %nn ; # $nn{ $prev } { $post } で頻度である。