펄에 대해서 잘 아시는 분의 도움을 구합니다.
제가 사용하는 스크립트에서 한글검색을 지원하지 않아서 소스를 수정하고 싶습니다.
아래부분이 관련되는 검색어를 받아들이고 검색하는 부분인것 같습니다.
어떻게 바꾸어야 하는지 짐작이 가시면 답을 좀 가르쳐 주십시요.
감사합니다.
==========================================================
#이 부분은 html문서에서 검색어를 받아들이는 부분입니다.
$value =~ tr/ / /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
# $value =~ s/%([가-하])/pack("C", hex($1))/eg; <-어떤 분이 이렇게 문제를 해결했다고 하시는데 저는 안돼네요.
#이 부분은 위의 검색어를 받아 저장되어 있는 데이타들을 비교 검색하여 결과를 찾는 부분입니다.
#Read each line of the data file, compare with search words
foreach $line (@all){
$line=~s/
//g;
#Keep track of loops
$loopsaround ;
$linetemp1=lc($line);
($Name,$Type,$Address,$City,$State,$Zip,$Phone,$Fax,$Email,$Homepage,$Describe,$skipthisfield)=split (/$delimiter/,$linetemp1);
#This line removes stray leading spaces before sorting your results
$line=~s/^ //;
$increcount=0;
if (($LastName =~/$LastName1/ && $LastName =~/$LastName2/ && $LastName =~/$LastName3/ && $LastName =~/$LastName4/ && $LastName =~/$LastName5/ && $LastName=~/$LastName6/ && $LastName =~/$LastName7/) &pip;&pip; !$LastNamepass) {
$increcount ;}
if (($FirstName =~/$FirstName1/ && $FirstName =~/$FirstName2/ && $FirstName =~/$FirstName3/ && $FirstName =~/$FirstName4/ && $FirstName =~/$FirstName5/ && $FirstName=~/$FirstName6/ && $FirstName =~/$FirstName7/) &pip;&pip; !$FirstNamepass) {
$increcount ;}
if ($increcount==8){
push (@keepers,$line);}}
=======================================================================
이 스크립트는 공개는 아니고 flattext.com 이라는 곳에서 다운받은 것입니다.
소스 프로그래머에게 문의를 전에 해보니 2바이트 문자는 이 스크립트로는 처리하기 힘들다고 하더군요. 그래서 만약 한글처리가 가능하게 수정을 하면 그때 사용하기로 결정을 하기로 했고 요금(처음 스크립트는 25불, 하나 추가시 마다 10불씩 추가)도 그때 지불하기로 했습니다...공개된 훌륭한 스크립트도 많은데...어쨌든 그 사람이 2바이트 문자까지 배려하지 않은 것은 사실이지만 제가 한글처리가 훌륭한 몇가지 스크립트를 이용하고 보니, 제가 질문드리는 아래 스크립트도 안될것은 없다고 생각이 듭니다.
다른 좋은 기능의 스크립트에 비해서 덩치는 작은 프로그램같습니다. 여기저기 게시판을 돌아다니며 해결책을 찾고자 했으나 워낙 프로그래밍에 기초실력이 없어서요...잘 아시는 분께 도움을 받는것이 낫겠다고 결정했습니다..
참고로 이 스크립트가 인스톨되어 돌아가는 사이트는
http://www.njkorean.com/ru/search.htm 이구요.
여기에서 아무 조건없이 검색하면 모든 데이타가 검색이 됩니다. 아무개 라는 한글이름을 제가 테스트 하면서 넣어보았구요. last name에 "아"를 넣거나 First Name에 "무개"를 넣어서 검색이 될 수 있도록 스크립트를 수정하고 싶습니다.
혹시 더 관심을 가져주실 수 있는 고마운 분이 계시다면 제가 필요한 화일들과 간단한 인스톨 방법 및 제 질문을
http://www.njkorean.com/ru/question.zip 으로 올려 두었습니다.
여기까지 오신분들께 감사드리고 혹 너무 무리한 부탁을 드리는 것이라면 용서하시고 힘에 겨운 사람에게 아량을 베푸시는 마음으로 조금만 도와주세요..감사합니다.
71
802
1999-11-28 13:19:34
닉네임
