한글 검사 / 파싱~~ 성공~~
펄을 거의 2달 동안 안했더니 디게 어렵네요 --;
use strict;
my $test1 = 'will 한글 테이킹 work?';
my $test2 = 'yo i am the best~~';
my $test3 = '순한글';
my $test4 = '!@#$%^&*()';
my $a1 = &iskorean ($test1);
my $a2 = &iskorean ($test2);
my $a3 = &iskorean ($test3);
my $a4 = &iskorean ($test4);
my $b1 = &stripkorean ($test1);
my $b2 = &stripkorean ($test2);
my $b3 = &stripkorean ($test3);
my $b4 = &stripkorean ($test4);
print "$a1 - $b1\n";
print "$a2 - $b2\n";
print "$a3 - $b3\n";
print "$a4 - $b4\n";
sub iskorean {
my $ktemp = $_[0];
if ($ktemp =~ /([\xA1-\xFF][\xA0-\xFF])+/) {return 1;}
return 0;
}
sub stripkorean {
my $ktemp = $_[0];
$ktemp =~ /(([\xA1-\xFF][\xA0-\xFF])+)/;
return $1;
}
결과:
1 - 한글
0 -
1 - 순한글
0 -<div class='small'>[이 게시물은 관리자님에 의해 2011-10-31 17:12:10 PHP & HTML에서 이동 됨]</div>
펄을 거의 2달 동안 안했더니 디게 어렵네요 --;
use strict;
my $test1 = 'will 한글 테이킹 work?';
my $test2 = 'yo i am the best~~';
my $test3 = '순한글';
my $test4 = '!@#$%^&*()';
my $a1 = &iskorean ($test1);
my $a2 = &iskorean ($test2);
my $a3 = &iskorean ($test3);
my $a4 = &iskorean ($test4);
my $b1 = &stripkorean ($test1);
my $b2 = &stripkorean ($test2);
my $b3 = &stripkorean ($test3);
my $b4 = &stripkorean ($test4);
print "$a1 - $b1\n";
print "$a2 - $b2\n";
print "$a3 - $b3\n";
print "$a4 - $b4\n";
sub iskorean {
my $ktemp = $_[0];
if ($ktemp =~ /([\xA1-\xFF][\xA0-\xFF])+/) {return 1;}
return 0;
}
sub stripkorean {
my $ktemp = $_[0];
$ktemp =~ /(([\xA1-\xFF][\xA0-\xFF])+)/;
return $1;
}
결과:
1 - 한글
0 -
1 - 순한글
0 -<div class='small'>[이 게시물은 관리자님에 의해 2011-10-31 17:12:10 PHP & HTML에서 이동 됨]</div>
게시판 목록
프로그램
| 번호 | 제목 | 글쓴이 | 날짜 | 조회 |
|---|---|---|---|---|
| 8230 | 9년 전 | 39 | ||
| 8229 | 9년 전 | 47 | ||
| 8228 |
커네드커네드
|
9년 전 | 92 | |
| 8227 | 9년 전 | 100 | ||
| 8226 | 9년 전 | 140 | ||
| 8225 | 9년 전 | 127 | ||
| 8224 | 9년 전 | 125 | ||
| 8223 | 9년 전 | 82 | ||
| 8222 |
 웹표준3년차 |
9년 전 | 160 | |
| 8221 | 9년 전 | 74 | ||
| 8220 | 9년 전 | 67 | ||
| 8219 | 9년 전 | 73 | ||
| 8218 | 9년 전 | 108 | ||
| 8217 |
star3840
|
9년 전 | 89 | |
| 8216 | 9년 전 | 129 | ||
| 8215 | 9년 전 | 82 | ||
| 8214 | 9년 전 | 201 | ||
| 8213 | 9년 전 | 138 | ||
| 8212 | 9년 전 | 50 | ||
| 8211 | 9년 전 | 213 | ||
| 8210 | 9년 전 | 209 | ||
| 8209 | 9년 전 | 313 | ||
| 8208 | 9년 전 | 181 | ||
| 8207 | 9년 전 | 196 | ||
| 8206 |
 웹의미래는딥러닝 |
9년 전 | 155 | |
| 8205 | 9년 전 | 141 | ||
| 8204 | 9년 전 | 106 | ||
| 8203 | 9년 전 | 196 | ||
| 8202 | 9년 전 | 122 | ||
| 8201 | 9년 전 | 161 | ||
| 8200 | 9년 전 | 126 | ||
| 8199 | 9년 전 | 173 | ||
| 8198 | 9년 전 | 151 | ||
| 8197 | 9년 전 | 130 | ||
| 8196 | 9년 전 | 507 | ||
| 8195 | 9년 전 | 132 | ||
| 8194 | 9년 전 | 262 | ||
| 8193 | 9년 전 | 128 | ||
| 8192 | 9년 전 | 155 | ||
| 8191 | 9년 전 | 111 | ||
| 8190 | 9년 전 | 107 | ||
| 8189 | 9년 전 | 161 | ||
| 8188 | 9년 전 | 98 | ||
| 8187 | 9년 전 | 118 | ||
| 8186 | 9년 전 | 127 | ||
| 8185 | 9년 전 | 284 | ||
| 8184 | 9년 전 | 80 | ||
| 8183 | 9년 전 | 305 | ||
| 8182 | 9년 전 | 134 | ||
| 8181 | 9년 전 | 105 | ||
| 8180 | 9년 전 | 670 | ||
| 8179 | 9년 전 | 471 | ||
| 8178 | 9년 전 | 275 | ||
| 8177 |
kiplayer
|
9년 전 | 276 | |
| 8176 | 9년 전 | 321 | ||
| 8175 | 9년 전 | 201 | ||
| 8174 | 9년 전 | 208 | ||
| 8173 | 9년 전 | 321 | ||
| 8172 | 9년 전 | 163 | ||
| 8171 | 9년 전 | 157 | ||
| 8170 | 9년 전 | 272 | ||
| 8169 |
커네드커네드
|
9년 전 | 237 | |
| 8168 | 9년 전 | 289 | ||
| 8167 | 9년 전 | 299 | ||
| 8166 | 9년 전 | 209 | ||
| 8165 | 9년 전 | 144 | ||
| 8164 | 9년 전 | 273 | ||
| 8163 | 9년 전 | 263 | ||
| 8162 | 9년 전 | 269 | ||
| 8161 | 9년 전 | 264 | ||
| 8160 |
 성격파탄자 |
9년 전 | 463 | |
| 8159 | 9년 전 | 378 | ||
| 8158 | 9년 전 | 192 | ||
| 8157 | 9년 전 | 336 | ||
| 8156 | 9년 전 | 251 | ||
| 8155 | 9년 전 | 231 | ||
| 8154 |
00년생용띠
|
9년 전 | 574 | |
| 8153 | 9년 전 | 200 | ||
| 8152 |
 닉네임없음 |
9년 전 | 378 | |
| 8151 | 9년 전 | 379 | ||
| 8150 | 9년 전 | 470 | ||
| 8149 |
Jangfolk
|
9년 전 | 312 | |
| 8148 | 9년 전 | 145 | ||
| 8147 | 9년 전 | 350 | ||
| 8146 | 9년 전 | 406 | ||
| 8145 | 9년 전 | 329 | ||
| 8144 | 9년 전 | 298 | ||
| 8143 | 9년 전 | 152 | ||
| 8142 | 9년 전 | 400 | ||
| 8141 | 9년 전 | 350 | ||
| 8140 | 9년 전 | 897 | ||
| 8139 | 9년 전 | 224 | ||
| 8138 |
전갈자리남자
|
9년 전 | 364 | |
| 8137 | 9년 전 | 343 | ||
| 8136 | 9년 전 | 709 | ||
| 8135 |
|
9년 전 | 759 | |
| 8134 |
PlayPixel
|
9년 전 | 470 | |
| 8133 |
 돼지코구뇽 |
9년 전 | 413 | |
| 8132 | 9년 전 | 428 | ||
| 8131 | 9년 전 | 781 |
댓글 작성
댓글을 작성하시려면 로그인이 필요합니다.
로그인하기