App-saikoro

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

Revision history for the module "App::saikoro" : 

0.24   2018 June or July (Need to be checked from the records on METACPAN.)
0.300  2021-06-08T15:39+09:00 ; Added "-20" options, rewrote the help manual as well.  

saikoro  view on Meta::CPAN


sub info ( ) {
    exit 0 if 0 eq ($o{2}//'') ;
    $0 =~ s|.*/||;
    say STDERR BOLD DARK ITALIC CYAN 
      "Used random seed = $o{s}  [$0 -g ${r}x${c} -y $d..$u" .  (defined $o{'.'} ? " -. $o{'.'}" : '' ) ."]" ;
}

## ヘルプとバージョン情報
BEGIN {
  our $VERSION = 0.24 ;
  $Getopt::Std::STANDARD_HELP_VERSION = 1 ; 
  grep { m/--help/} @ARGV and *VERSION_MESSAGE = sub {} ; 
    # 最初は 0.21 を目安とする。
    # 1.00 以上とする必要条件は英語版のヘルプをきちんと出すこと。
    # 2.00 以上とする必要条件はテストコードが含むこと。
   # 0.22 : 英文マニュアルをPOD形式にする。
   # 0.23 : 英文マニュアルのPOD形式の部分をさらに増やした。
   # 0.24 : 英文マニュアルを少し書き加え。
}  
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-?p(od?)?\b/i, @ARGV) ? 1 : 0 } # POD を使わないと言う指定がされているかどうか
    my $jd = "JapaneseManual" ;
    my $flagE = ! ja && ( en || ! EnvJ ) ; # 英語にするかどうかのフラグ

saikoro  view on Meta::CPAN

}

=encoding utf8 

=head1 NAME

saikoro 

=head1 VERSION 

0.24 (2018-07-10)

=head1 SYNOPSIS

saikoro B<[-g N1[,N2]] [-y N3[..N4]]>   # N1, N2, N3 and N4 are all numbers.

=head1 DESCRIPTION

A random number(matrix) generator from uniform distributions.
Generates random uniform variable. Discrete/uniform can be specified.



( run in 1.269 second using v1.01-cache-2.11-cpan-7add2cbd662 )