[완료]cgi에서 perl을 이용하여 유니코드 변환시...

0
points

cgi에서 메일 보내는 프로그램을 작성중에 있습니다.
제가 만드는건 아니구요... 아는 분이 다국어(일본어 한국어 중국어 ) 메일을 보낼수 있게 유니코드 변환 소스좀 추가
해주라고 해서 KLDP에서 검색한 소스를 추가 하였는데 에러가 발생합니다.
추가한 코드는 아래와 같습니다.

sub convert_encode {
my ($str, $from, $to) = @_;
eval { require Encode; };
unless($@) {
$str = Encode::encode($to, Encode::decode($from, $str));
} else {
eval { require Text::Iconv; };
unless($@) {
my $converter = Text::Iconv->new($from, $to);
$str = $converter->convert($str);
}
}
return $str;
}

실행시 에러는

CGI エラーエラーメッセージ:
Can't locate Encode/ConfigLocal.pm in @INC (@INC contains:/usr/lib/perl5/5.8.0/i386-linux-thread-multi /usr/lib/perl5/5.8.0/usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi/usr/lib/perl5/site_perl/5.8.0 /usr/lib/perl5/site_perl/usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi/usr/lib/perl5/vendor_perl/5.8.0 /usr/lib/perl5/vendor_perl/usr/lib/perl5/5.8.0/i386-linux-thread-multi /usr/lib/perl5/5.8.0 .) at/usr/lib/perl5/5.8.0/i386-linux-thread-multi/Encode.pm line 52.
-----------------------------------------------------------------
CGI エラーエラーメッセージ:Can't call method "_eval" without a package or object reference at/home/npgo_group/gci/web/cgi-bin/request/jp/mail.cgi line 109.
-----------------------------------------------------------------
입니다.

제가 펄은 완전 초보라 에러 해석도 안되고 있네요.
모듈 선언이 안된듯도 하고.. 사용법이 틀린듯도 하고...
도움 부탁드립니다.

aero의 이미지
5179
points

Encode 모듈이 제대로 설치되지 않았나 보네요.

0
points

에러메시지는 Encode모듈이 필요한 모듈 파일을 찾지 못해서 발생한 것으로 보입니다.

perl -e 'use Encode'
라고 명령을 내려서 에러메시지가 뜨면 제대로 설치되지 않은겁니다.

그리고 Perl에서 인코딩 변환및 처리는 Encode 모듈로 충분합니다.
Encode모듈은 Perl배포시 기본으로 포함되는 Core모듈이기도 하고요
굳이 Text::Iconv모듈을 사용할 필요가 없죠..

그런데 다국어 메일이라면 그냥 유니코드를 지원하는 utf-8을 기준으로 하면
인코딩 변환도 필요 없을듯 하네요.

해결

0
points

지적해주신 대로 수정하니 에러 없이 실행 되는군요.
감사합니다.

댓글 보기 옵션

원하시는 댓글 전시 방법을 선택한 다음 "설정 저장"을 누르셔서 적용하십시오.