|
Plain 텍스트 화일을 이용하는 조그마한 펄스크립트 DB를
수정하여 사용하고 있습니다.
한글로 저장되어있는 변수를 어떻게 검색할수있는지요?
아래부분은 이 스크립트의 처음부분입니다.
저는 펄스크립트의 문외한이라 아시는분의 조그만한 조언이
큰 도움이 되겠습니다. 감사합니다.
===========================================
#!/usr/local/bin/perl
#
read(STDIN, $input, $ENV{
CONTENT_LENGTH
});
# split the input
@pairs = split(/&/, $input);
# split the name/value pairs
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ tr/ / /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
#A1. The following lines get and process data passed
#through the URL, do not modify
$stringpassed=$ENV{
QUERY_STRING
};
#A2. Replace all plusses with spaces for data passed via URL
$stringpassed=~s/ / /g;
#A3. Get words passed to URL and get field name to search
( $Name, $Type, $City, $State, $Describe,$skiplast)=split(/&&/,$stringpassed);
|
12
731
1999-10-19 03:07:19
닉네임
