Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/perl
- @myarray=(A,B,C,D,E,1,2,3,4,5,6,7,8);
- for($i=0;$i<$#myarray;$i++){
- $j=rand(10);
- $randomnum.=$myarray[$j];
- }
- print $randomnum;
- print "\n";
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement