Welcome, guest | Sign In | My Account | Store | Cart

Recipe 578581 revision 2 

#!/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");
 }

History