Metatrans :: Base.

MetaTrans :: Base는 메타 - 변환기 플러그인을 생성하기위한 추상 기본 클래스입니다.
지금 다운로드

Metatrans :: Base. 순위 및 요약

광고

  • Rating:
  • 특허:
  • Perl Artistic License
  • 가격:
  • FREE
  • 게시자 이름:
  • Jan Pomikalek
  • 게시자 웹사이트:
  • http://search.cpan.org/~janpom/MetaTrans-1.04/lib/MetaTrans/Base.pm

Metatrans :: Base. 태그


Metatrans :: Base. 설명

Metatrans :: Base는 메타 - 변환기 플러그인을 생성하기위한 추상 기본 클래스입니다. MetaTrans :: Base는 Meta-Translator Plug-ins.Synopsis # 이는 작업 예제가 아닙니다. 그것은 단지 일러스트를 제공합니다. # inking one은 metatrans :: ultralinguanet 소스 코드를 참조하십시오. 패키지 메타 트랜스 :: myplugin; MetaTrans :: Base; VARS QW (@ISA)를 사용하십시오. @isa = qw (MetaTrans :: Base); http :: request를 사용하십시오. URI :: 탈출; 새 {내 $ class = shift; 내 % 옵션 = @_; $ 옵션 {host_server} = "www.some-online-translator.com"(정의 된 $ 옵션 {host_server} 정의); 내 $ self = new metatrans :: base (% 옵션); $ self = $ self, $ class; # 지원되는 번역 방향 : # 한국어 독일어 # 한국어 프랑스어 # 한국어 스페인어 $ self-> set_languages ( 'eng', 'ger', 'fre', 'spa'); $ self-> set_dir_1_to_all ( 'eng'); $ self-> set_dir_all_to_1 ( 'eng'); $ self를 돌려줍니다. } sub create_request {my $ self = shift; 내 $ expression = shift; 내 $ src_lang_code = shift; MY $ DEST_LANG_CODE = SHIFT; # 우리의 언어 코드 - 서버 언어 코드 변환 테이블 My % table = (ENG => 'ENG', GER => 'deu', fre => 'fra', spa => 'esp); 새 HTTP :: Request ( 'Get', 'http://www.some-online-translator.com/translate.cgi?')를 반환하십시오. 'expr ='. uri_escape ($ 표현식). '' 'src =' . $ table {$ src_lang_code}. ''. ''dst = '. $ table {$ dest_lang_code}); } sub process_response {My $ self = shift; 내 $ 목차 = 변화; # 우리는 여기서 이것들에 대해 상관하지 않습니다. 그러나 어떤 경우에는 우리는 My $ src_lang_code = Shift를 돌봐야 할 수도 있습니다. MY $ DEST_LANG_CODE = SHIFT; 내 @Result; 동안 ($ contents = m | ([^


Metatrans :: Base. 관련 소프트웨어