Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Perl: Общие вопросы > Как узнать IP компа.


Автор: IRomanov 11.12.2007, 20:01
Пишу FTP-клиент. Там есть команда PORT, которую нужно отправить на сервер. Команда порт отправляет ip клиента и порт.
Хотел узнать как узнать ip компа на котором выполняется программа, чтобы каждый раз вручную не вводить в конфиге.

Автор: nitr 11.12.2007, 20:17
IRomanov, ой как мало информации ;)

с помощью сокетов делаете? Если да, то читайте про них, там всё просто...

Добавлено через 48 секунд
к примеру с помощью
IO::Socket::INET->sockhost

Автор: IRomanov 11.12.2007, 20:27
Цитата(nitr @ 11.12.2007,  20:17)
IRomanov, ой как мало информации ;)

с помощью сокетов делаете? Если да, то читайте про них, там всё просто...

Добавлено @ 20:18
к примеру с помощью
IO::Socket::INET->sockhost

Спасибо. Да на самом деле легко. Думал все сложнее.

Автор: IRomanov 11.12.2007, 20:55
Только вот оказывается sockhost возвращает ip сервера к которому подключаешься, просто у меня сервер на моем компе был и адрес сервера и клиента одинаковые были.

Автор: nitr 11.12.2007, 21:03
я же говорю, мало информации дали, показали бы хоть кусок... т.к. обычно так, есть конечно
IO::Socket::INET->peerhost, но интересно будет smile

Добавлено через 1 минуту и 41 секунду
похоже ошибка в логике...

Автор: nitr 11.12.2007, 21:22
вы пишите клиент...
так что продумайте логику...

сервер (сокет):
Код

#!/usr/bin/perl
use strict;
use warnings;

use IO::Socket::INET;

my $srv = IO::Socket::INET->new( Listen => 5, Proto => 'tcp', Timeout => 20, LocalAddr    => '127.0.0.1' );
print "Listen on ".$srv->sockport."\n";

while (my $client = $srv->accept) {
    print $client->peerhost."\n";
}

close $srv;

Автор: IRomanov 11.12.2007, 21:22
Цитата(nitr @ 11.12.2007,  21:03)
я же говорю, мало информации дали, показали бы хоть кусок... т.к. обычно так, есть конечно
IO::Socket::INET->peerhost, но интересно будет smile

Добавлено @ 21:05
похоже ошибка в логике...

Немножко не понял, о чём вы сейчас сказали.
Но вот поподробнее:

Код
]
use IO::Socket;

$server_address = "..."; #У меня аддресс и порт из ARGV берется - но это не важно, допустим мы их вручную ввели.
$server_address = "...";
$socket = new IO::Socket::INET(PeerAddr => $server_address, PeerPort => $server_port, Proto => "tcp") or die "Can't create socket: $!\n";
....
if(активный режим)
{
   my $myipaddr = "10.1.2.3";
   PORT A,B,C,D,E,F;  #A.B.C.D - ip клиента, порт клиента. В данном случае A=10 B=1 C=2 D=3
   #$socket->sockhost() - выдаст ip сервера а не клиента. 
}


А мне надо чтобы $myipaddr получить как-нибудь а не тупо в коде или конфиге его писать.

Добавлено через 1 минуту и 43 секунды
Цитата(nitr @ 11.12.2007,  21:22)
вы пишите клиент...
так что продумайте логику...

сервер (сокет):
Код

#!/usr/bin/perl
use strict;
use warnings;

use IO::Socket::INET;

my $srv = IO::Socket::INET->new( Listen => 5, Proto => 'tcp', Timeout => 20, LocalAddr    => '127.0.0.1' );
print "Listen on ".$srv->sockport."\n";

while (my $client = $srv->accept) {
    print $client->peerhost."\n";
}

close $srv;

Сейчас подумаю, еще раз спасибо.

Автор: nitr 11.12.2007, 21:52
теперь понятно smile
откройте модуль Net::FTP , посмотрите и попытайтесь разобрать smile (отличный фтп-клиент) , там есть реализация...

а так - если только сервер вам передаст ваш же адрес, если ошибаюсь, меня поправят или дополнят...
Код

#!/usr/bin/perl
use strict;
use warnings;

use Net::hostent;
use Socket;

my $ip = Net::hostent::gethost('');
print inet_ntoa($ip->addr);

это тоже неверно...

Автор: nitr 11.12.2007, 22:09
ёпрст, вы меня попытались запутать, не знаю что у вас за проблема, но! указанные мною примеры, показывают, первый мой ответ - верен.

клиент:
Код

#!/usr/bin/perl
use strict;
use warnings;

use IO::Socket::INET;

my $host = '......'; # сюда впишите ип адрес сервера
my $client = IO::Socket::INET->new( PeerAddr => $host, PeerPort => '31001', Proto => 'tcp' ) or die $@;

print $client->peerhost."\n";
print $client->sockhost."\n";

close $client;


сервер:
Код

#!/usr/bin/perl
use strict;
use warnings;

use IO::Socket::INET;

my $ip = '127.0.0.1'; # сюда ip
my $srv = IO::Socket::INET->new( Listen => 5, Proto => 'tcp', Timeout => 20, LocalAddr    => $ip );
print "Listen on ".$srv->sockport."\n";

while (my $client = $srv->accept) {
    print $client->sockhost."\t".$client->peerhost."\n";
}

close $srv;


Добавлено @ 22:12
и ещё smile вы не получите свой ип, каким его видит сервер. К примеру, вы используете шлюз, т.е. перл скажет, что у вас 192.168.0.2, а реальный "белый"/внешний/инет адрес не сможет, в свою очередь фтп-сервер видит адрес 80.80.80.80, в этом и будет проблема.

Совет: всё же изучайте тот модуль, или вообще просто его используйте smile Там интересная реализация кстати ;)

Автор: IRomanov 11.12.2007, 22:31
Все я разобрался спасибо.

Автор: nitr 12.12.2007, 00:06
IRomanov, молодец, а в чём была ошибка/недоработка или что-то иное? smile

Автор: IRomanov 13.12.2007, 09:25
Цитата(nitr @ 12.12.2007,  00:06)
IRomanov, молодец, а в чём была ошибка/недоработка или что-то иное? smile

Это вам спасибо.
Даже не знаю, просто запутался с IP.  И понял что для тестирования не следует использовать FTP сервак на своем компе, потому что сервак и клиент имеют один и тот же ip.

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)