Kristofer Wolff wrote:
>
> hi, does anybody know a way to find out the server name, or/and the ip
> number ?
> I start a server:
>
> $server = IO::Socket::INET->new( Proto => 'tcp',
> LocalPort => $PORT,
> Listen => SOMAXCONN,
> Reuse => 1);
>
> and want to set $this_server = "" // somthing like "ip29.internet-shop.net"
>
> is it possible to find out the name of the server i generated ?
If I understand your poorly phrased question. :) (Just joking, I assume
English is not your first tongue).
use Net::Domain qw(hostfqdn);
print "fully qualified name = @{[hostfqdn]}\n";
--
,-/- __ _ _ $Bill Luebkert ICQ=14439852
(_/ / ) // // DBE Collectibles http://www.todbe.com/
/ ) /--< o // // Mailto:[EMAIL PROTECTED] http://dbecoll.webjump.com/
-/-' /___/_<_</_</_ http://www.freeyellow.com/members/dbecoll/
_______________________________________________
Perl-Win32-Web mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web
