[펌펄] 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>
|
댓글을 작성하시려면 로그인이 필요합니다.
프로그램
태그 필터 (최대 3개)
전체
개발자
소스
기타
mysql
팁자료실
javascript
php
linux
flash
정규표현식
jquery
node.js
mobile
웹서버
os
프로그램
강좌
썸네일
이미지관련
도로명주소
그누보드5
기획자
견적서
계약서
기획서
마케팅
제안서
seo
통계
서식
통계자료
퍼블리셔
html
css
반응형
웹접근성
퍼블리싱
표준화
반응형웹
홈페이지기초
부트스트랩
angularjs
포럼
스크린리더
센스리더
개발자톡
개발자팁
퍼블리셔톡
퍼블리셔팁
기획자톡
기획자팁
프로그램강좌
퍼블리싱강좌