App-digitdemog
view release on metacpan or search on metacpan
$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 = () ; # åºåãããå¤ã®ç¯å²ãæå®ãããå ´åã®æåãæå®ããã
( run in 0.223 second using v1.01-cache-2.11-cpan-eab888a1d7d )