نت :: dnsserver :: قاعدة من المفترض أن يكون هذا الفصل الأساسي لجميع معالجات الوحدة النمطية للحل.
التحميل الان

نت :: dnsserver :: قاعدة الترتيب والملخص

نت :: dnsserver :: قاعدة العلامات

الخادم الوحدة النمطية بيرل بيرل DNS. خادم DNS. معالجات الوحدة النمطية

نت :: dnsserver :: قاعدة وصف

من المفترض أن تكون هذه الفئة الأساسية لجميع معالجات وحل الوحدة النمطية. Net :: Base DnsServer :: Base هي وحدة بيرل التي تهدف إلى أن تكون الفئة الأساسية لجميع معالجات الوحدة النمطية لحلها. الاستخدام غير المستخدمة: #! / USR / BIN / PERL -W -T استخدم صارما؛ استخدام NET :: DNSServer؛ استخدام NET :: DNSServer :: ذاكرة التخزين المؤقت؛ استخدام myTestresolver؛ My $ Delcver1 = NEW NET :: DNSServer :: ذاكرة التخزين المؤقت؛ My $ Dellver2 = New MyTestResolver {DOM => "Test.com"}؛ تشغيل Net :: DNSSERVER {PRIMENT => ،}؛ # لا ترجع أبدا simple myTestresolver.pm المحتويات: حزمة myTestresolver؛ استخدام صارمة؛ استخدام مصدر؛ استخدم Net :: DNSServer :: Base؛ استخدم Net :: DNS :: Packet؛ استخدم Vars QW (ISA)؛ @ ISA = QW (NET :: DNSServer :: Base)؛ # يجب تعريف الحساب الفرعي الحل الحسابي {بلدي $ بلدي $ dns_packet = $ الذاتي -> {سؤال}؛ بلدي (سؤال $) = $ dns_packet -> السؤال ()؛ إذا (سؤال $ -> Qname EQ $ الذاتي -> {DOM} $ السؤال -> QTYPE EQ "A") {My $ Response = Breaking \ {$ {$ dns_packet}، "Net :: DNS :: Packet" || يموت "لا يمكن تهيئة حزمة الاستجابة"؛ استجابة $-> دفع ("إجابة"، )؛ استجابة $-> دفع ("السلطة"، )؛ Response $-> دفع ("إضافي"، )؛ بلدي response_head_header = Response-> رأس؛ ReboyD_HEADER-> AA (1)؛ # جعل رد موثوق بالاستجابة $؛ } إرجاع الحلقة؛ } يجب على برنامج Invoker الرئيسي استدعاء الطريقة الجديدة () لكل محلل لإنشاء مثيل لكل منهما. كل حل ISA NET :: BNSSERVER :: Base الذي يجب أن يحدد بشكل صريح طريقة حل () بشكل صريح. يتم تمرير الإشارة إلى قائمة هذه الكائنات إلى تشغيل () كوسيطة "الأولوية" كما هو موضح في ملخص أعلاه. Net :: DNSServer-> Run () لا تعود أبدا. متطلبات: perl.

نت :: dnsserver :: قاعدة برامج ذات صلة