Snipplr comments feed https://snipplr.com/ Mon, 13 Apr 2026 01:35:15 +0000 https://snipplr.com/view/2801/verify-if-an-ipv4-ip-address-is-valid <p><p>Thanks for the missing '$'. I will be sure and add it. Glad that it helped you with your project as well!</p> </p> Mon, 16 Jul 2007 08:43:58 UTC https://snipplr.com/view/2801/verify-if-an-ipv4-ip-address-is-valid https://snipplr.com/view/2801/verify-if-an-ipv4-ip-address-is-valid <p>@veljkopopovic Your absolutely right, there is a module for that. But, at the time that I put this together I was learning and posted what was working for me. I preferred to re-invent the wheel, that's why I wrote this. @j0sh097 Good point on the $. I never actually came back to this and corrected it. I did notice that fact and corrected it in my local scripts where I used it, but never updated it here. Thanks for pointing that out. @dhineshkumar I would still chomp $ARGV as a "just in case", but that's me. :) Thanks!</p> Fri, 12 Nov 2010 11:04:03 UTC https://snipplr.com/view/2801/verify-if-an-ipv4-ip-address-is-valid https://snipplr.com/view/2801/verify-if-an-ipv4-ip-address-is-valid <p>@j0sh097 Just wanted to note that the version I used in the code actually catches the 1.1.1.1e and doesn't let it pass. The one you mentioned does let it slip, so I am glad I used the one I did. :) use warnings; print("What is the IP Address you would like to validate: "); my $ipaddr = ; chomp($ipaddr); if( $ipaddr =~ m/^(\d\d?\d?)\.(\d\d?\d?)\.(\d\d?\d?)\.(\d\d?\d?)$/ ) { print("IP Address $ipaddr --> VALID FORMAT! \n"); if($1</p> Fri, 12 Nov 2010 11:27:50 UTC https://snipplr.com/view/2801/verify-if-an-ipv4-ip-address-is-valid