2010-07-12から1日間の記事一覧
規則性のない文字列をperlで生成したかったんです。 コード #!/usr/bin/perl use strict; use warnings; &main(); exit; sub main { my @strings = ("A".."Z","a".."z","0".."9",".","_","+","-"); my $str; my $num=100; for(my $i=0;$i<$num;$i++){ $str .…
規則性のない文字列をperlで生成したかったんです。 コード #!/usr/bin/perl use strict; use warnings; &main(); exit; sub main { my @strings = ("A".."Z","a".."z","0".."9",".","_","+","-"); my $str; my $num=100; for(my $i=0;$i<$num;$i++){ $str .…
