App-saikoro
view release on metacpan or search on metacpan
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.
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 ) ; # è±èªã«ãããã©ããã®ãã©ã°
}
=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.520 second using v1.01-cache-2.11-cpan-7add2cbd662 )