[펌펄] Perl이나 PHP로 한글 파싱,,,
한글 검사 / 파싱~~ 성공~~
펄을 거의 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>
|
댓글을 작성하시려면 로그인이 필요합니다.