[해피CGI][cgimall][PERL 팁] 랜덤문자를 생성하되 입력하기 쉽게 만들기

해피CGI 입니다.

그간 포럼을 무심하게 보고 지냈군요.
 

차차 좋은 자료로 다시 채워나가도록 하겠습니다.


가끔랜덤으로 문자를 만들 필요가 있을때가 있습니다.

이 경우 랜덤문자가 너무 치기 어렵게 만들어지는 경우가 있죠?   jlkiowkh 처럼 말이죠.

아래 코드를 쓰면 자음과 모음이 섞여 치기 쉽게 생성하실수 있습니다.


[프로그램코드]

#!/usr/bin/perl   my @array = qw(b c d e f g h i j k l m n p r s t x z); srand(time ^ $$); @array = sort { return (int(rand(3)) - 1); } @array; my @array2 = qw(a e i o u y); srand(time ^ $$); @array2 = sort { return (int(rand(3)) - 1); } @array2; print "content-type:text/html\n\n"; print qq~$array[0]$array2[0]$array[1]$array2[1]$array[2]$array2[2]~;

 

위 코드는 http://perlmania.or.kr 에서 보고 약간 응용해본것입니다.

좋은 하루되세요.