Perl LWP:Simple Get URL String Varilable -
#! / Usr / bin / perl एलडब्ल्यूपी :: सरल; चेतावनियों का उपयोग करें; $ सामग्री = 0; $ Find = "webvis.edgesuite.net"; खुली (होस्टलिस्ट, "सूची।"); @होस्ट्स = & lt; HOSTLIST & gt ;; विदेशी मुद्रा $ होस्ट (@होस्ट्स) {$ परिणाम = `nslookup www। $ Host`; मेरा $ pos = इंडेक्स ($ परिणाम, $ ढूंढें); यदि ($ pos & gt; -1) {my $ url = "http: //www.$host"; $ Content = get ($ url); प्रिंट $ सामग्री; मेरी $ pos1 = सूचकांक ($ सामग्री, $ url); यदि ($ pos1 & gt; -1) {प्रिंट "सामग्री मिलान \ n"; } और {प्रिंट "कोई सामग्री मिलान नहीं \ n"; } $ Count ++; Chomp ($ मेजबान); प्रिंट "$ गिनती www। $ Host \ n"; }} बंद करें (होस्टलिस्ट); बाहर निकलने के ($ ERRORCODE); उपर्युक्त कोड का उपयोग करके, मुझे हमेशा निम्न त्रुटि मिलती है:
IO :: Socket :: INET: खराब मेजबाननाम 'www.test.com < / P>
यदि $ url को इसमें बदलें: $ url = 'http://www.test.com'; मुझे पृष्ठ से सामग्री पुनर्प्राप्ति मिलती है।
तो मेरा सवाल है कि मैं स्ट्रेट वेरिएबल में कैसे मिलता हूं जो विशेषता को प्राप्त करता है, इसलिए यह उत्पादन नहीं करता है बुरा होस्टनाम त्रुटि?
आपको पहले से धन्यवाद
जब आप मेजबान में पढ़ते हैं & lt; HOSTLIST & gt; से, प्रत्येक पंक्ति (संभावित रूप से आखिरी) को इसके अंत में एक नई पंक्ति होगी जो डोमेन नाम में नहीं है और इस प्रकार स्पष्ट रूप से
Comments
Post a Comment