[해피CGI][cgimall][perl] 핸드폰 번호 확인루틴

해피CGI 입니다.

간단한 문자열비교로 핸드폰번호를 골라내는 루틴입니다.
아주 간단하지만 반복해서 작업때 마다 만들려면 귀찮죠?

방금 또 만들다가
 담에 또 쓸려고 올립니다.

좋은 하루되세요.



[프로그램코드]

$hphone_read_con =~s/ //g;   $hphone_read_con = "01195620000"; if ($hphone_read_con =~/\D/) {     print "content-type:text/html\n\n";     print "숫자가 아니네 $hphone_read"; } else {  print "content-type:text/html\n\n";  #숫자라면 011,017,019 이외는 오류다  if ($hphone_read_con =~/^011/ or $hphone_read_con =~/^017/ or      $hphone_read_con =~/^018/ or $hphone_read_con =~/^019/) {      #전체길이가 10이상만 통과      if (length($hphone_read_con) >= 10) {          print "핸드폰이네";      }      } }