Checks IPv4
Perl, 6 lines
Download
Copy to clipboard1 2 3 4 5 6 | #!/usr/bin/perl
use LWP::Simple;
if ((get "http://internet.yandex.ru/") =~ /(IPv4:\s(\d+\.){3}\d+)/) {
print($&, "\n");
}
|
Tags: ipv4
- Community |
- Code |
- Docs |
- Downloads ▼ |
- more ▼
Get external IP
(Perl recipe)
by greg zakharov
ActiveState Code (http://code.activestate.com/recipes/578581/)
| Created by greg zakharov on Fri, 21 Jun 2013 (MIT) |
| ◄ | Perl recipes (17) | ► |
| ◄ | greg zakharov's recipes (59) | ► |
Required Modules
- (none specified)
Other Information and Tasks
- Licensed under the MIT License
- Viewed 3861 times
- Revision 2 (updated 10 years ago)