Netaddr :: IP :: Find

Netaddr :: IP :: Find هو وحدة بيرل للعثور على عناوين IP في نص عادي.
التحميل الان

Netaddr :: IP :: Find الترتيب والملخص

الإعلانات

  • Rating:
  • رخصة:
  • Perl Artistic License
  • السعر:
  • FREE
  • اسم الناشر:
  • Tatsuhiko Miyagawa
  • موقع ويب الناشر:
  • http://search.cpan.org/~miyagawa/

Netaddr :: IP :: Find العلامات


Netaddr :: IP :: Find وصف

Netaddr :: IP :: Find هي وحدة نمطية للبيرل للعثور على عناوين IP في نص عادي. Netaddr :: IP: ابحث عن وحدة نمطية للبيرل للعثور على عناوين IP في نص عادي. استخدام Netaddr :: IP: البحث؛ $ num_found = find_ipaddrs (نص $، رد الاتصال)؛ هذه وحدة نمطية للعثور على عناوين IP في نص عادي. prunctionsnetaddr :: IP: ابحث عن صادرات وظيفة واحدة، find_ipaddrs (). يعمل مشابه جدا ل URI :: Find's Find_uris () أو البريد الإلكتروني :: Find's Find_emails (). $ num_ipaddrs_found = find_ipaddrs (نص $، رد الاتصال)؛ الوسيطة الأولى هي نص للبحث عن طريق ومعالجة. ثانيا هو روتين رد الاتصال الذي يحدد ما يجب القيام به مع كل عنوان IP كما تم العثور عليه. ترجع إجمالي عدد عناوين IP الموجودة. يتم إعطاء رد الاتصال الحججتين. الأول هو مثيل Netaddr :: IP يمثل عنوان IP موجود. والثاني هو عنوان IP الفعلي كما هو موجود في النص. مهما كانت إرجاع رد الاتصال، ستحل محل النص الأصلي. تم العثور على # مخصصات لكل عنوان IP، في Ping Hours لمشاهدة ما إذا كان حيا. استخدام صافي :: بينغ؛ بلدي pinger $ = net :: ping-> جديد؛ بلدي pinged. Find_ipaddrs (نص $، Sub {My ($ ipaddr، $ orig) =_؛ مضيف $ $ = $ ipaddr-> to_string؛ التالي إذا كان موجودا $ pinged {$ host}؛ $ pinged {$ host} = $ pinger-> بينغ ($ المضيف)؛})؛ بينما (مضيفتي ($ المضيف، $ UP) == كل pinged) {print "$ host is". أعلى دولار؟ 'فوق تحت' . "ن"؛ } # حل عنوان IP إلى FQDN Find_ipaddrs (نص $، Sub {My ($ ipaddr، $ orig) = _؛ readve_ip ($ ipaddr-> to_string)؛})؛ sub readve_ip {استخدام نت :: DNS؛ # انظر بيرلدوك نت :: DNS للحصول على التفاصيل} المتطلبات: perl.


Netaddr :: IP :: Find برامج ذات صلة