Re^2: How to handle Net::Address::IP::Local'->public when we are not connected to internet

[ppp]

Yes it gives some UDP socket connection couldnt created.. type of error. I dont have that in pc here. I saw in my school this morning. But error was linke some .. UDP socket cudnt create.. So how to handle it . I t gives this error because there is no internet access and even then i am trying to get IP , so no connection i guess thats why..

But how i can handle it ? Because if i print it like this :

print "adress is : 'Net::Address::IP::Local'->public";

Then it just print:

adress is :

Now it even do not print 0 or null so that i could habdle it like this if($adress=null) {do this} How to handle ?

[vinoth.ree]

Try the same with eval. Here is the code, I have added eval part

use strict;
use warnings;

use Net::Address::IP::Local;

print ReturnIpAddress();

sub ReturnIpAddress 
{
        select STDOUT;

        eval{
                $address = 'Net::Address::IP::Local'->public ; ## Rece
+iving the current IP ##
        };

        if ($@)
        {
                print "$@";
                return '192.80.160.16'; ##If No IP address received th
+en return a static IP of order "192....." 
        }
        else
        {
                return $address;
        }



}

[ppp]

I got ur point.. all is well now .. Thnaks :)

[Anonymous Monk]

Same error :

Unable to create UDP socket: A socket operation was attempted to an un
+reachable
network. at C:/Perl/site/lib/Net/Address/IP/Local.pm line 166.
192.80.160.16

[Laurent_R]

No, it is no longer a fatal error. The program just does what you asked it to do: it prints the content of $@. And then it continues and prints your static IP address, which is enough to prove that the program does not die because of the socket exception.

[Your Mother]

If you’re really doing this, and it’s not just a typo, it’s not what you think. Package and object stuff does not work as interpolated strings. Well, not without trickery. This–

print "adress is : 'Net::Address::IP::Local'->public";

–will print this–

adress is : 'Net::Address::IP::Local'->public