한글 검사 / 파싱~~ 성공~~
펄을 거의 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>
게시판 목록
프로그램
| 번호 | 제목 | 글쓴이 | 날짜 | 조회 |
|---|---|---|---|---|
| 8130 | 9년 전 | 575 | ||
| 8129 |
 Angelos |
9년 전 | 688 | |
| 8128 | 9년 전 | 544 | ||
| 8127 |
Angelos |
9년 전 | 591 | |
| 8126 | 9년 전 | 524 | ||
| 8125 | 9년 전 | 779 | ||
| 8124 |
Angelos |
9년 전 | 539 | |
| 8123 | 9년 전 | 524 | ||
| 8122 | 9년 전 | 456 | ||
| 8121 | 9년 전 | 562 | ||
| 8120 | 9년 전 | 482 | ||
| 8119 | 9년 전 | 571 | ||
| 8118 |
Angelos |
9년 전 | 648 | |
| 8117 |
 뜨거운형제들 |
9년 전 | 415 | |
| 8116 |
PASKRAN
|
9년 전 | 474 | |
| 8115 | 9년 전 | 470 | ||
| 8114 |
kiplayer
|
9년 전 | 607 | |
| 8113 | 9년 전 | 467 | ||
| 8112 |
Angelos |
9년 전 | 576 | |
| 8111 | 9년 전 | 414 | ||
| 8110 | 9년 전 | 457 | ||
| 8109 | 9년 전 | 388 | ||
| 8108 |
Angelos |
9년 전 | 566 | |
| 8107 |
Angelos |
9년 전 | 453 | |
| 8106 |
Angelos |
9년 전 | 456 | |
| 8105 | 9년 전 | 485 | ||
| 8104 |
Angelos |
9년 전 | 450 | |
| 8103 |
Angelos |
9년 전 | 451 | |
| 8102 |
Angelos |
9년 전 | 424 | |
| 8101 |
snshero
|
9년 전 | 810 | |
| 8100 | 9년 전 | 857 | ||
| 8099 | 9년 전 | 834 | ||
| 8098 | 9년 전 | 734 | ||
| 8097 | 9년 전 | 541 | ||
| 8096 | 9년 전 | 738 | ||
| 8095 | 9년 전 | 875 | ||
| 8094 | 9년 전 | 547 | ||
| 8093 | 9년 전 | 822 | ||
| 8092 | 9년 전 | 775 | ||
| 8091 | 9년 전 | 1159 | ||
| 8090 | 9년 전 | 785 | ||
| 8089 | 9년 전 | 998 | ||
| 8088 | 9년 전 | 660 | ||
| 8087 | 9년 전 | 789 | ||
| 8086 | 9년 전 | 535 | ||
| 8085 | 9년 전 | 501 | ||
| 8084 | 9년 전 | 619 | ||
| 8083 | 9년 전 | 592 | ||
| 8082 | 9년 전 | 781 | ||
| 8081 | 9년 전 | 492 | ||
| 8080 | 9년 전 | 586 | ||
| 8079 | 9년 전 | 546 | ||
| 8078 | 9년 전 | 465 | ||
| 8077 | 9년 전 | 555 | ||
| 8076 | 9년 전 | 425 | ||
| 8075 | 9년 전 | 457 | ||
| 8074 | 9년 전 | 424 | ||
| 8073 | 9년 전 | 478 | ||
| 8072 | 9년 전 | 468 | ||
| 8071 |
o1o111
|
9년 전 | 919 | |
| 8070 | 9년 전 | 427 | ||
| 8069 | 9년 전 | 363 | ||
| 8068 | 9년 전 | 616 | ||
| 8067 | 9년 전 | 415 | ||
| 8066 | 9년 전 | 443 | ||
| 8065 | 9년 전 | 401 | ||
| 8064 | 9년 전 | 395 | ||
| 8063 | 9년 전 | 363 | ||
| 8062 | 9년 전 | 333 | ||
| 8061 | 9년 전 | 368 | ||
| 8060 | 9년 전 | 410 | ||
| 8059 | 9년 전 | 344 | ||
| 8058 | 9년 전 | 281 | ||
| 8057 | 9년 전 | 411 | ||
| 8056 | 9년 전 | 330 | ||
| 8055 | 9년 전 | 376 | ||
| 8054 | 9년 전 | 383 | ||
| 8053 | 9년 전 | 435 | ||
| 8052 | 9년 전 | 306 | ||
| 8051 | 9년 전 | 356 | ||
| 8050 | 9년 전 | 413 | ||
| 8049 | 9년 전 | 346 | ||
| 8048 | 9년 전 | 450 | ||
| 8047 | 9년 전 | 388 | ||
| 8046 | 9년 전 | 332 | ||
| 8045 | 9년 전 | 281 | ||
| 8044 | 9년 전 | 364 | ||
| 8043 | 9년 전 | 323 | ||
| 8042 | 9년 전 | 313 | ||
| 8041 | 9년 전 | 374 | ||
| 8040 | 9년 전 | 299 | ||
| 8039 | 9년 전 | 338 | ||
| 8038 | 9년 전 | 281 | ||
| 8037 | 9년 전 | 427 | ||
| 8036 | 9년 전 | 515 | ||
| 8035 | 9년 전 | 447 | ||
| 8034 | 9년 전 | 407 | ||
| 8033 | 9년 전 | 368 | ||
| 8032 | 9년 전 | 472 | ||
| 8031 | 9년 전 | 365 |
댓글 작성
댓글을 작성하시려면 로그인이 필요합니다.
로그인하기