#!/usr/bin/perl
use LWP::Simple;
if ((get "http://internet.yandex.ru/") =~ /(IPv4:\s(\d+\.){3}\d+)/) {
print($&, "\n");
}
Diff to Previous Revision
--- revision 1 2013-06-24 09:29:21
+++ revision 2 2013-07-01 05:48:51
@@ -1,6 +1,6 @@
#!/usr/bin/perl
use LWP::Simple;
-if ((get "http://internet.yandex.ru/") =~ /(IPv4: ((\d+)\.){3}\d+)/) {
+if ((get "http://internet.yandex.ru/") =~ /(IPv4:\s(\d+\.){3}\d+)/) {
print($&, "\n");
}