net :: dnsserver :: base.

이는 모든 해석 모듈 핸들러의 기본 클래스임을 의미합니다.
지금 다운로드

net :: dnsserver :: base. 순위 및 요약

광고

  • Rating:
  • 특허:
  • Perl Artistic License
  • 가격:
  • FREE
  • 게시자 이름:
  • Rob Brown
  • 게시자 웹사이트:
  • http://karmatics.com/aardvark/

net :: dnsserver :: base. 태그


net :: dnsserver :: base. 설명

이는 모든 해결 모듈 핸들러의 기본 클래스가되는 것을 의미합니다. net :: dnsserver :: base는 모든 해결 모듈 핸들러의 기본 클래스가되는 perl 모듈입니다 .SnopsisExample 사용 : #! / usr / bin / perl -w -t 사용 엄격; Net :: DNSServer; net :: dnsserver :: cache; mytestresolver를 사용하십시오; MY $ RESOLVER1 = NEW NET :: DNSSERVER :: 캐시; MY $ RESOLVER2 = 새로운 MyTeStresolver {DOM => "test.com"}; Net :: DNSServer {우선 순위 => ,}; # NOSS RETURNSEXAMPLE MYTESTRESOLVER.PM 내용 : MyTeStresolver 패키지; 엄격한 사용; 수출업자; net :: dnsserver :: base; Net :: DNS :: Packet; VARS QW (@ISA)를 사용하십시오. @isa = qw (net :: dnsserver :: base); # 해결 서브 루틴은 하위 해결을 정의해야합니다. {My $ self = shift; 내 $ dns_packet = $ self-> {question}; My ($ 질문) = $ dns_packet -> 질문 (); if ($ 질문 -> QName EQ $ self -> {dom} $ 질문 -> qtype eq "a") {My $ response = 축복 \ % {$ dns_packet}, "net :: dns :: packet"|| 다이 "는 응답 패킷을 초기화 할 수 없습니다"; $ 응답 -> 푸시 ( "답변", ); $ 응답 -> 푸시 ( "권한", )); $ 응답 -> "추가", ); MY $ RESPONTS_HEADER = $ 응답 -> 헤더; $ response_header-> AA (1); # 권위있는 반환 $ 응답을하십시오. } undef를 반환합니다. } 메인 호출자 프로그램은 각 resolver의 new () 메소드를 호출하여 각각의 인스턴스를 만듭니다. 각 resolver isa net :: dnsserver :: base는 해결 방법 () 메소드를 명시 적으로 정의해야합니다. 이러한 객체 목록에 대한 참조는 위의 시놉시스에서 시연 된 "우선 순위"인수로 실행되도록 전달됩니다. net :: dnserver-> run () 결코 반환하지 않습니다. 요구 사항 : · Perl.


net :: dnsserver :: base. 관련 소프트웨어

회사 소개