view release on metacpan or  search on metacpan

digitdemog  view on Meta::CPAN

$o{o} //= 0 ; # 桁の番号を0から始める ことがデフォルトだが、やはり1から始められるようにした。
my $dt_start = [ gettimeofday ] ;
my $optu0 = ($o{u}//'') eq 0 ; 
my $optq0 = ($o{q}//'') eq 0 ;
my $optw0 = ($o{w}//'') eq 0 ; 
my $oL2 = ($o{L}//'') eq 2 ; # $optL2 は長すぎるので、ちょっと特例的に短くしてみた
my $oL4 = ($o{L}//'') eq 4 ;

$o{'.'} //= 1 ;
$o{'$'} //= '$' ;  # 文字の終端を表す記号
binmode STDOUT, 'utf8' unless $optu0 ;

## 具体例を指示する -g についての処理
$o{g} //= 1 ; # 例として取り出すために、各頻度に対して何個異なる例を保持するか。
my $sep = do { my $c = $o{g} =~s/\d//gr ; $c = decode_utf8 $c if ! $optu0 ; $c ne '' ? $c : '|' } ; # 出力表での具体例の区切り文字。
$o{g} =~ s/\D//g ; 
$o{g} = 1 if $o{g} eq '' ;
my $header  ; # -1 が指定されたら読み飛ばしの対象となるが、一応保管。(2次情報として標準エラー出力に出す。)

## -y による頻度のフィルタリングをするための準備 : 
my @y_ranges = () ; # 出力される値の範囲が指定された場合の挙動を指定する。