한글 검사 / 파싱~~ 성공~~
펄을 거의 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>
게시판 목록
프로그램
| 번호 | 제목 | 글쓴이 | 날짜 | 조회 |
|---|---|---|---|---|
| 730 |
 드렁크수달스 |
19년 전 | 2757 | |
| 729 |
그레이스웹
|
19년 전 | 3545 | |
| 728 |
 happycommunity |
19년 전 | 2728 | |
| 727 |
happycommunity |
19년 전 | 2556 | |
| 726 |
happycommunity |
19년 전 | 2378 | |
| 725 |
happycommunity |
19년 전 | 2286 | |
| 724 |
happycommunity |
19년 전 | 2162 | |
| 723 |
happycommunity |
19년 전 | 4280 | |
| 722 |
happycommunity |
19년 전 | 2706 | |
| 721 |
happycommunity |
19년 전 | 2203 | |
| 720 |
happycommunity |
19년 전 | 2300 | |
| 719 |
happycommunity |
19년 전 | 2867 | |
| 718 |
happycommunity |
19년 전 | 1984 | |
| 717 |
happycommunity |
19년 전 | 3210 | |
| 716 |
happycommunity |
19년 전 | 2784 | |
| 715 |
happycommunity |
19년 전 | 2310 | |
| 714 |
happycommunity |
19년 전 | 1855 | |
| 713 |
happycommunity |
19년 전 | 2275 | |
| 712 |
happycommunity |
19년 전 | 2025 | |
| 711 |
happycommunity |
19년 전 | 1931 | |
| 710 |
happycommunity |
19년 전 | 2505 | |
| 709 |
happycommunity |
19년 전 | 2363 | |
| 708 |
happycommunity |
19년 전 | 3916 | |
| 707 |
happycommunity |
19년 전 | 3753 | |
| 706 |
happycommunity |
19년 전 | 2270 | |
| 705 |
 강강술냄세 |
19년 전 | 3347 | |
| 704 |
강강술냄세 |
19년 전 | 2021 | |
| 703 |
강강술냄세 |
19년 전 | 2411 | |
| 702 |
드렁크수달스 |
19년 전 | 2303 | |
| 701 |
홀로남은자
|
19년 전 | 2371 | |
| 700 |
홀로남은자
|
19년 전 | 2192 | |
| 699 | 19년 전 | 2835 | ||
| 698 |
 WAYKIKI |
19년 전 | 2859 | |
| 697 |
WAYKIKI |
19년 전 | 3193 | |
| 696 |
WAYKIKI |
19년 전 | 3063 | |
| 695 |
WAYKIKI |
19년 전 | 2737 | |
| 694 |
happycommunity |
19년 전 | 2964 | |
| 693 |
happycommunity |
19년 전 | 3223 | |
| 692 |
드렁크수달스 |
19년 전 | 2902 | |
| 691 |
 날아라짱가 |
19년 전 | 2655 | |
| 690 | 19년 전 | 2962 | ||
| 689 | 19년 전 | 4535 | ||
| 688 | 19년 전 | 2463 | ||
| 687 | 19년 전 | 2483 | ||
| 686 | 19년 전 | 3512 | ||
| 685 | 19년 전 | 3201 | ||
| 684 | 19년 전 | 2877 | ||
| 683 | 19년 전 | 2086 | ||
| 682 | 19년 전 | 1792 | ||
| 681 | 19년 전 | 2890 | ||
| 680 | 19년 전 | 1745 | ||
| 679 | 19년 전 | 2329 | ||
| 678 | 19년 전 | 3983 | ||
| 677 | 19년 전 | 3776 | ||
| 676 | 19년 전 | 3503 | ||
| 675 | 19년 전 | 3429 | ||
| 674 |
happycommunity |
19년 전 | 1587 | |
| 673 |
happycommunity |
19년 전 | 1951 | |
| 672 |
happycommunity |
19년 전 | 1879 | |
| 671 | 19년 전 | 2546 | ||
| 670 | 19년 전 | 4670 | ||
| 669 |
happycommunity |
19년 전 | 2791 | |
| 668 |
happycommunity |
19년 전 | 1942 | |
| 667 |
happycommunity |
19년 전 | 1966 | |
| 666 |
happycommunity |
19년 전 | 1871 | |
| 665 |
happycommunity |
19년 전 | 2609 | |
| 664 |
happycommunity |
19년 전 | 8214 | |
| 663 |
happycommunity |
19년 전 | 2757 | |
| 662 |
happycommunity |
19년 전 | 2807 | |
| 661 |
happycommunity |
19년 전 | 3073 | |
| 660 |
happycommunity |
19년 전 | 2249 | |
| 659 |
happycommunity |
19년 전 | 2276 | |
| 658 |
happycommunity |
19년 전 | 2205 | |
| 657 |
happycommunity |
19년 전 | 2104 | |
| 656 |
happycommunity |
19년 전 | 2300 | |
| 655 |
happycommunity |
19년 전 | 2555 | |
| 654 |
날아라짱가 |
19년 전 | 3095 | |
| 653 | 19년 전 | 2348 | ||
| 652 | 19년 전 | 1934 | ||
| 651 |
 뜨락의이름 |
19년 전 | 2877 | |
| 650 | 19년 전 | 5037 | ||
| 649 | 19년 전 | 3540 | ||
| 648 | 19년 전 | 3493 | ||
| 647 | 19년 전 | 3000 | ||
| 646 | 19년 전 | 2437 | ||
| 645 | 19년 전 | 1520 | ||
| 644 | 19년 전 | 3160 | ||
| 643 | 19년 전 | 2035 | ||
| 642 |
 damoa.biz |
19년 전 | 5415 | |
| 641 | 19년 전 | 2453 | ||
| 640 | 19년 전 | 3451 | ||
| 639 | 19년 전 | 2896 | ||
| 638 | 19년 전 | 1774 | ||
| 637 | 19년 전 | 3893 | ||
| 636 | 19년 전 | 2445 | ||
| 635 | 19년 전 | 2334 | ||
| 634 |
 cmpanel |
19년 전 | 3032 | |
| 633 |
cmpanel |
19년 전 | 3326 | |
| 632 | 19년 전 | 2528 | ||
| 631 | 19년 전 | 2288 |
댓글 작성
댓글을 작성하시려면 로그인이 필요합니다.
로그인하기