サブルーチン作成例

サブルーチンを作ってみた
## YYYY-MM-DD hh:mm:ss を返す
sub getNowDateTime{
　　　　my ($sec,$min,$hour,$mday,$mon,$year,$wno) = localtime(time);
　　　　return sprintf(“%04d-%02d-%02d %02d:%02d:%02d”,$year+1900,$mon+1,$mday,$hour,$min,$sec);
}
ついでにもうひとつ
#ランダムな文字列を返す
sub getRandStr {
　　　　#文字数の指定
　　　　my $value = shift;
　　　　my @chara = qw(a b c d e f g h i j k l m n o p q r s t u v w z y x z A B C D E F G H I J K L M N O P Q R S T U V W X Y Z );
　　　　my $str;
　　　　　　　if( $value eq “” ){
　　　　　　　　　　　　$str.=$chara[int(rand($#chara+1))] for ( 1..16 );
　　　　　　　}else{
　　　　　　　　　　　　$str.=$chara[int(rand($#chara+1))] for ( 1..$value );
　　　　　　　}
　　　　　　　return $str;
}

Thank you for reading this post, don't forget to subscribe!