文字列を生成したい。
規則性のない文字列を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 .= $strings[int(rand($#strings+1))]; } printf STDOUT "$str\n"; } __END__
今のところ、これで満足している。