{"id":580,"date":"2002-09-19T05:44:25","date_gmt":"2002-09-19T05:44:25","guid":{"rendered":"http:\/\/dev.jblove.net\/?p=580"},"modified":"2002-09-19T05:44:25","modified_gmt":"2002-09-19T05:44:25","slug":"%ec%84%9d%eb%b4%89%ec%9a%b4%eb%8b%98%ec%9d%98-%eb%9d%bc%ec%9d%b4%eb%b8%8c%eb%9f%ac%eb%a6%ac","status":"publish","type":"post","link":"https:\/\/jblove.net\/?p=580","title":{"rendered":"\uc11d\ubd09\uc6b4\ub2d8\uc758 \ub77c\uc774\ube0c\ub7ec\ub9ac"},"content":{"rendered":"

\uc11d\ubd09\uc6b4
\nhttp:\/\/www.mytechnic.com<\/p>\n

# \uc798 \uc4f0\uc138\uc694..
\n# \ud574\ud53c \ucd94\uc11d\uc785\ub2c8\ub2e4.
\n# \uc790\ubc14\uc2a4\ud06c\ub9bd\ud2b8 \ub77c\uc774\ube0c\ub7ec\ub9ac\uc640 PHP\ud568\uc218 \ub77c\uc774\ube0c\ub7ec\ub9ac\ub97c \uac19\uc774 \uc62c\ub9bd\ub2c8\ub2e4.
\n# \uc77c\ubd80\ub294 PHP\uc2a4\ucfe8\uc5d0\uc11c \ubc1c\ucdcc\ud558\uc5ec \ub9cc\ub4e0 \uc18c\uc2a4\uc785\ub2c8\ub2e4. <\/p>\n

<\/p>\n

\n\/\/\uc140\ub809\ud2b8
\nfunction optionlist($optionlist, $getvalue=””, $keyfield=”key”, $valuefield=”value”) {
\n foreach($optionlist as $key => $value) {
\n if($getvalue && $getvalue == ${$keyfield}) $chk = “selected”;
\n else $chk = “”;
\n echo “

\/\/\uc140\ub809\ud2f0\ub4dc
\nfunction selected($checkkey, $getvalue=””) {
\n echo “value=’$checkkey'”;
\n if($getvalue && $checkkey == $getvalue) echo ” selected”;
\n} <\/p>\n

\/\/\uccb4\ud06c\ub4dc
\nfunction checked($checkkey, $getvalue=””) {
\n echo “value=’$getvalue'”;
\n if($getvalue && $checkkey == $getvalue) echo ” checked”;
\n} <\/p>\n

\/\/\uc8fc\ubbfc\ubc88\ud638 \uac80\uc0ac
\nfunction RegiNum($reginum) {
\n $weight = ‘234567892345’; \/\/ \uc790\ub9ac\uc218 weight \uc9c0\uc815
\n $len = strlen($reginum);
\n $sum = 0; <\/p>\n

if ($len <> 13) { return false; } <\/p>\n

for ($i = 0; $i < 12; $i++) {
\n $sum = $sum + (substr($reginum,$i,1) * substr($weight,$i,1));
\n } <\/p>\n

$rst = $sum%11;
\n $result = 11 – $rst; <\/p>\n

if ($result == 10) {$result = 0;}
\n else if ($result == 11) {$result = 1;} <\/p>\n

$jumin = substr($reginum,12,1); <\/p>\n

if ($result <> $jumin) {return false;}
\n return true;
\n} <\/p>\n

\/\/\uc0ac\uc5c5\uc790\ubc88\ud638 \uac80\uc0ac
\nfunction comRegiNum($reginum) {
\n $weight = ‘137137135’; \/\/ \uc790\ub9ac\uc218 weight \uc9c0\uc815
\n $len = strlen($reginum);
\n $sum = 0; <\/p>\n

if ($len <> 10) { return false; } <\/p>\n

for ($i = 0; $i < 9; $i++) {
\n $sum = $sum + (substr($reginum,$i,1) * substr($weight,$i,1));
\n }
\n $sum = $sum + ((substr($reginum,8,1)*5)\/10);
\n $rst = $sum%10; <\/p>\n

if ($rst == 0) {$result = 0;}
\n else {$result = 10 – $rst;} <\/p>\n

$saub = substr($reginum,9,1); <\/p>\n

if ($result <> $saub) {return false;}
\n return true;
\n} <\/p>\n

\n\/\/\uae00\uc790\ub974\uae30
\nfunction cut_str($msg,$cut_size,$tail=”…”) {
\n if($cut_size <= 0) return $msg;
\n $msg = strip_tags($msg);
\n $msg = str_replace(“∓quot;”,”””,$msg);
\n if(strlen($msg) <= $cut_size) return $msg; \n\n\n for($i=0;$i<$cut_size;$i++) if(ord($msg[$i])>127) $han++; else $eng++;
\n if($han%2) $han–; <\/p>\n

$cut_size = $han + $eng; <\/p>\n

$tmp = substr($msg,0,$cut_size);
\n $tmp .= $tail;
\n return $tmp;
\n} <\/p>\n

\/\/ \ubaa8\ub4e0\ud55c\uae00\uc758 \uae00\uc790\ub97c \ucd9c\ub825
\nfunction hangul_code() {
\n $count = 0;
\n for($i = 0x81; $i <= 0xC8; $i++) {
\n for($j = 0x00; $j <= 0xFE; $j++) {
\n if(($j >= 0x00 && $j <= 0x40) || ($j >= 0x5B && $j <= 0x60) || ($j >= 0x7B && $j <= 0x80) || ($j >= 0x00 && $j <= 0x40) ||
\n (($i >= 0xA1 && $i <=0xAF) && ($j >= 0xA1 && $j <= 0xFE)) || ($i == 0xC6 && ($j >= 0x53 && $j <= 0xA0)) ||
\n ($i >= 0xC7 && ($j >= 0x41 && $j <= 0xA0))) continue;
\n echo chr($i).chr($j).” “;
\n $count++;
\n }
\n }
\n echo $count;
\n} <\/p>\n

\/\/ \ud55c\uae00\uac80\uc0ac
\nfunction is_han($str) {
\n if(strlen($str) != 2) return false; <\/p>\n

$i = ord ($str[0]);
\n $j = ord ($str[1]); <\/p>\n

if($i < 0x81 || $i > 0xC8 || $j > 0xFE || ($j >= 0x00 && $j <= 0x40) || ($j >= 0x5B && $j <= 0x60) || ($j >= 0x7B && $j <= 0x80) ||
\n ($j >= 0x00 && $j <= 0x40) || (($i >= 0xA1 && $i <=0xAF) && ($j >= 0xA1 && $j <= 0xFE)) ||
\n ($i == 0xC6 && ($j >= 0x53 && $j <= 0xA0)) || ($i >= 0xC7 && ($j >= 0x41 && $j <= 0xA0))) return false;
\n else return true;
\n} <\/p>\n

\n\/\/ \ub79c\ub364\uac12 \uc0dd\uc131
\nfunction random_string($length) {
\n $randomcode = array(‘1’, ‘2’, ‘3’, ‘4’, ‘5’, ‘6’, ‘7’, ‘8’, ‘9’, ‘0’,
\n ‘A’, ‘B’, ‘C’, ‘d’, ‘E’, ‘F’, ‘G’, ‘H’, ‘x’, ‘J’,
\n ‘K’, ‘b’, ‘M’, ‘N’, ‘y’, ‘P’, ‘r’, ‘R’, ‘S’, ‘T’,
\n ‘u’, ‘V’, ‘W’, ‘X’, ‘Y’, ‘Z’);
\n mt_srand((double)microtime()*1000000);
\n for($i=1;$i<=$length;$i++) $Rstring .= $randomcode[mt_rand(1, 36)];
\n return $Rstring;
\n} <\/p>\n

\n\/\/ \ub514\ub809\ud1a0\ub9ac \ub9ac\uc2a4\ud2b8
\nfunction DirList($path=”.\/”) {
\n $path = opendir($path);
\n while($list = readdir($path)) if($list != “.” && $list != “..”) $Arraydir[] = $list;
\n closedir($path);
\n return $Arraydir;
\n} <\/p>\n

\/\/ 15\uc790\ub9ac\uc758 \uc720\uc77c\ud55c \uc22b\uc790\uac12 \ub9cc\ub4e4\uae30
\nfunction uniquenumber() {
\n $temparray = explode(” “, microtime());
\n $temparray2 = substr($temparray[0],2,5);
\n $number =$temparray[1].$temparray2;
\n return $number;
\n} <\/p>\n

\/\/ \ud30c\uc77c\uc774\ub984\uacfc \ud655\uc7a5\uc790 \ubd84\ub9ac
\nfunction ExplodeFile($filename) {
\n $filename = strtolower($filename);
\n $elements = explode(‘.’,$filename);
\n $elemcnt = count($elements)-1;
\n if(count($elements)==1) $ext = ”;
\n else $ext = $elements[$elemcnt];
\n unset($elements[$elemcnt]);
\n $fname = implode($elements,”); <\/p>\n

$fileinfo[“name”] = $fname;
\n $fileinfo[“ext”] = $ext;
\n return $fileinfo;
\n} <\/p>\n

\/\/ \uadf8\ub9bc\ud655\uc7a5\uc790
\nfunction ImageType($filename) {
\n $webimg = explodefile($filename); <\/p>\n

$webext = $webimg[“ext”];
\n $defineexp = array(“gif”,”jpg”,”png”); <\/p>\n

$count = count($defineexp); <\/p>\n

for($i=0;$i<$count;$i++) {
\n if($defineexp[$i] == $webext) return true;
\n }
\n return false;
\n} <\/p>\n

\/\/ \uc720\ub2c9\uc2a4\ub0a0\uc9dc \ud3ec\ub9f7
\nfunction date_format($unixtime,$format=”Y.m.d”,$empty=” “) {
\n if($unixtime) return date($format, $unixtime);
\n else return $empty;
\n} <\/p>\n

\/\/YYYY-MM-DD \ud615\uc2dd\uc744 \uc720\ub2c9\uc2a4 \ud0c0\uc784\uc73c\ub85c
\nfunction unix_format($times, $operator=”-“, $type=true) {
\n if($type == true) {
\n $times = trim($times);
\n $arry = explode($operator,$times);
\n if(count($arry) != 3) return date_format(0);
\n $mktime = mktime(0,0,0,$arry[1],$arry[2],$arry[0]);
\n return date(“U”, $mktime);
\n } else {
\n $formats = “Y{$operator}m{$operator}d”;
\n return date($formats, $times);
\n }
\n} <\/p>\n

\/\/ \uc8fc\ubbfc\ub4f1\ub85d\ubc88\ud638 \ud3ec\ub9f7
\nfunction jumin_format($juminno, $cutno=3, $des=”x”, $empty=” “) {
\n $juminno = str_replace(“-“,””,$juminno);
\n if(strlen($juminno) != 13) return $empty;
\n for($i=0;$i<$cutno;$i++) $x .= $des;
\n $juminno = substr($juminno,0,13-$cutno).$x;
\n $juminno = substr($juminno,0,6).”-“.substr($juminno,6);
\n return $juminno;
\n} <\/p>\n

\/\/ \ud648\ud398\uc774\uc9c0 \ud3ec\ub9f7
\nfunction url_format($url, $ltype=false, $title=false, $other=””, $htype=”http:\/\/”, $empty=” “) {
\n $url = eregi_replace(“http:\/\/”,””,trim($url));
\n if($url) $url = $htype.$url;
\n else return $empty; <\/p>\n

if($title) $turl = $title;
\n else $turl = $url; <\/p>\n

if($ltype) return “{$turl}<\/a>“;
\n else return $url;
\n} <\/p>\n

\/\/ \uc804\uc1a1\uac12 \ucd08\uae30\ud654
\nfunction post_format($str, $type) {
\n switch($type) {
\n case “url”:
\n $str = trim($str);
\n $str = eregi_replace(“http:\/\/”,””,$str);
\n break;
\n case “num”:
\n $str = trim($str);
\n $str = str_replace(“,”,””,$str);
\n break;
\n }
\n return $str;
\n} <\/p>\n

\/\/ \uc774\uba54\uc77c \ud3ec\ub9f7
\nfunction mail_format($email, $ltype=false, $title=false, $empty=” “) {
\n $email = trim($email);
\n $title = trim($title); <\/p>\n

if(!$email && !$title) return $empty;
\n else if(!$email) return $title; <\/p>\n

if($title) $temail = $title;
\n else $temail = $email; <\/p>\n

if($ltype) return “{$temail}<\/a>“;
\n else return $email;
\n} <\/p>\n

\/\/ \uc804\ud654\ubc88\ud638 \ud3ec\ub9f7
\nfunction tel_format($num1, $num2, $num3, $format=”-“, $empty=” “) {
\n $num1 = trim($num1);
\n $num2 = trim($num2);
\n $num3 = trim($num3); <\/p>\n

if(!$num1) $num1 = “02”; <\/p>\n

if($num2 && $num3) return $num1.$format.$num2.$format.$num3;
\n else return $empty;
\n} <\/p>\n

\/\/ \ubb38\uc790 \ud3ec\ub9f7
\nfunction text_format($str, $empty=” “) {
\n $str = trim($str);
\n if($str) return $str;
\n else return $empty;
\n} <\/p>\n

\/\/ \uc0c8\ucc3d\ub744\uc6b0\uae30
\nfunction win_format($title, $url, $target, $width, $height, $scrollbars=1, $empty) {
\n $title = text_format($title, $empty);
\n return “{$title}<\/a>“;
\n} <\/p>\n

\/\/ \ub098\uc774(\uc8fc\ubbfc\ub4f1\ub85d\ubc88\ud638\ub97c \uc774\uc6a9)
\nfunction AGE_jumin($lno,$rno) {
\n $refArray = Array(18,19,19,20,20,16,16,17,17,18);
\n $refyy = substr($rno,0,1); <\/p>\n

$biryear = $refArray[$refyy] * 100 + substr($lno,0,2);
\n $nowyear = date(“Y”);
\n return $nowyear – $biryear + 1;
\n} <\/p>\n

\/\/ URL \uc874\uc7ac\ud655\uc778
\nfunction URL_exists($url) {
\n $url = str_replace(“http:\/\/”, “”, $url);
\n list($domain, $file) = explode(“\/”, $url, 2); \/\/ \ub3c4\uba54\uc778\ubd80\ubd84\uacfc \uc8fc\uc18c\ubd80\ubd84\uc73c\ub85c \ub098\ub215\ub2c8\ub2e4.
\n $fid = fsockopen($domain, 80); \/\/ \ub3c4\uba54\uc778\uc744 \uc624\ud508\ud569\ub2c8\ub2e4.
\n fputs($fid, “GET \/$file HTTP\/1.0
\nHost: $domain<\/p>\n

“); \/\/ \ud30c\uc77c \uc815\ubcf4\ub97c \uc5bb\uc2b5\ub2c8\ub2e4.
\n $gets = fgets($fid, 128);
\n fclose($fid); <\/p>\n

if(ereg(“200 OK”, $gets)) return TRUE;
\n else return FALSE;
\n} <\/p>\n

\/\/ \uc870\uc0ac \uafb8\ubbf8\uae30
\n$array = “\ubd64 \ubcbc \ubc4c \ubc30 \ubca0 \ubcf4 \ubc84 \ubc14 \ube44 \ubdf0 \ubd80 \ube0c<\/p>\n","protected":false},"excerpt":{"rendered":"

\uc11d\ubd09\uc6b4 http:\/\/www.mytechnic.com # \uc798 \uc4f0\uc138\uc694.. # \ud574\ud53c \ucd94\uc11d\uc785\ub2c8\ub2e4. # \uc790\ubc14\uc2a4\ud06c\ub9bd\ud2b8 \ub77c\uc774\ube0c\ub7ec\ub9ac\uc640 PHP\ud568\uc218 \ub77c\uc774\ube0c\ub7ec\ub9ac\ub97c \uac19\uc774 \uc62c\ub9bd\ub2c8\ub2e4. # \uc77c\ubd80\ub294 PHP\uc2a4\ucfe8\uc5d0\uc11c \ubc1c\ucdcc\ud558\uc5ec \ub9cc\ub4e0 \uc18c\uc2a4\uc785\ub2c8\ub2e4.<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"_uf_show_specific_survey":0,"_uf_disable_surveys":false,"footnotes":""},"categories":[51],"tags":[],"class_list":["post-580","post","type-post","status-publish","format-standard","hentry","category-papa-php"],"aioseo_notices":[],"_links":{"self":[{"href":"https:\/\/jblove.net\/index.php?rest_route=\/wp\/v2\/posts\/580","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/jblove.net\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/jblove.net\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/jblove.net\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/jblove.net\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=580"}],"version-history":[{"count":0,"href":"https:\/\/jblove.net\/index.php?rest_route=\/wp\/v2\/posts\/580\/revisions"}],"wp:attachment":[{"href":"https:\/\/jblove.net\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=580"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/jblove.net\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=580"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/jblove.net\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=580"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}