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

회원가입

출석체크

마이페이지

CGIMALL

jquery , CSS , PHP , Javascript , 무료폰트 , ASP

홈 > 커뮤니티 > 골드팁 상세보기

클라우드태그

Javascript

PHP

ASP

CSS

HTML

MYSQL

jquery

image

Mobile

API

slide

게시판

메뉴

현재접속자 명

322

3,593

2003-08-27 20:21:48

닉네임

HappyCGI

제목

[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 에서 보고 약간 응용해본것입니다.

좋은 하루되세요.

이전게시글 웹상에서 문자(sms) 보내기

2003-08-10 16:51:24


	다음게시글 [초보팁] cgi 파일을 수정할때 주의할점들	2003-10-14 10:37:54