文字列を生成したい。

規則性のない文字列を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__

今のところ、これで満足している。