पर्ल का उपयोग कर एक टेक्स्ट फ़ाइल से आईपी पते निकालने के लिए कैसे?

Question

मैं केवल एक टेक्स्ट फ़ाइल से आईपी पते कैसे निकालूं जिसमें प्रति पंक्ति आईपी पता है? मैं आईपी निकालना चाहता हूं और फिर आईपी पते को एक अलग फाइल में सूचीबद्ध करना चाहता हूं। पाठ फ़ाइल आईपी शामिल निम्न स्वरूप में हैं:

होस्ट somehost.com (192.168.1.1) ऊपर है (0.20s प्रतीक्षा अवधि)।
होस्ट 10.1.0.0 ऊपर है (0.21 विलंबता)।
होस्ट 172.1.0.0 ऊपर है (0.21 विलंबता)।

मैं इस प्रकार उत्पादन के परिणामस्वरूप पाठ फ़ाइल पाने के लिए कोशिश कर रहा हूँ:

192.168.1.1
10.1.0.0
172.1.0.0

सबसे अच्छा तरीका क्या है पर्ल का उपयोग करके ऐसा करने के लिए?

नोट: यह एक नियमित अभिव्यक्ति है कि वैध आईपी के लिए खाते में ... ऊपर प्रारूप क्या करेंगे में सिर्फ आईपी आवश्यकता नहीं है।

धन्यवाद!

Answer 1

use Regexp::Common qw/net/; 
while (<>) { 
    print $1, "\n" if /($RE{net}{IPv4})/; 
} 

Answer 2

while(<>) 
{ 
    print "$1\n" if /\b(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})\b/; 
}