# 0.01 : 2018-06-28 2個の大きな機能を最初に作った。
# 0.02 : 2018-06-29 空白文字を分類して集計する機能を実装した。
}  

sub HELP_MESSAGE { use FindBin qw[ $Script $Bin ] ; sub EnvJ ( ) { $ENV{LANG} =~ m/^ja_JP/ ? 1 : 0 } ; # # ja_JP.UTF-8 sub en( ) { grep ( /^en(g(i(sh?)?)?)?/i , @ARGV ) ? 1 : 0 } # English という文字列を先頭から2文字以上を含むか sub ja( ) { grep ( /^jp$|^ja(p(a(n?)?)?)?/i , @ARGV ) ? 1 : 0 } # jp または japan という文字列を先頭から2文字以上を含むか sub opt( ) { grep (/^opt(i(o(ns?)?)?)?$/i, @ARGV ) ? 1 : 0 } # options という文字列を先頭から3文字以上含むから sub noPOD ( ) { grep (/^no-?pod\b/i, @ARGV) ? 1 : 0 } # POD を使わないと言う指定がされているかどうか my $jd = "JapaneseManual" ; my $flagE = ! ja && ( en || ! EnvJ ) ; # 英語にするかどうかのフラグ

exec "perldoc $0" if $flagE &&  ! opt && ! noPOD   ; 
$ARGV[1] //= '' ;
open my $FH , '<' , $0 ;
while(<$FH>){
    s/\Qboxmuller\E/$Script/gi ;
    s/\$Bin/$Bin/gi ;
    if ( s/^=head1\b\s*// .. s/^=cut\b\s*// ) { 
        if ( s/^=begin\s+$jd\b\s*// .. s/^=end\s+$jd\b\s*// xor $flagE ) {
            print $_ if ! opt || m/^\s+\-/  ; 
        }
    } 
}
close $FH ;
exit 0 ;
}