Здравствуйте, amanikin, Вы писали:
A>Здравствуйте, уважаемые коллеги !!!
A>Буду благодарен если окажите помощь в решение моей задачи:
A>Есть сервер на linux на одном интерфейсе поднято несколько IP например:
A>eth0 — 192.168.1.1
A>eth0:0 — 192.168.1.2
A>eth0:1 — 192.168.1.3
A>необходимо с perl скрипта посылать запросы, но так что бы source ip был не всегда по умолчанию
A>192.168.1.1 а его можно было менять.
perldoc -f bind
A>Опять же буду благодарен любым материалам где описанно как это можно сделать.
http://docs.freebsd.org/44doc/psd/20.ipctut/paper.html
перевод с C на Perl тривиален.
Здравствуйте, netch80, Вы писали:
N>Здравствуйте, amanikin, Вы писали:
A>>Здравствуйте, уважаемые коллеги !!!
A>>Буду благодарен если окажите помощь в решение моей задачи:
A>>Есть сервер на linux на одном интерфейсе поднято несколько IP например:
A>>eth0 — 192.168.1.1
A>>eth0:0 — 192.168.1.2
A>>eth0:1 — 192.168.1.3
A>>необходимо с perl скрипта посылать запросы, но так что бы source ip был не всегда по умолчанию
A>>192.168.1.1 а его можно было менять.
N>perldoc -f bind
A>>Опять же буду благодарен любым материалам где описанно как это можно сделать.
N>http://docs.freebsd.org/44doc/psd/20.ipctut/paper.html
N>перевод с C на Perl тривиален.
Извиняюсь за свою навязчивость, правильно ли я Вас понял:
— создаем сокет (команда socket)
— сими биндим его к нужному ip и назвачаем ему свободный порт (bind)
— далее выполняем connect
тем самым source ip будет тот который мы указали при выполнении bind.
N>Да, именно так.
Спасибо разобрался!!!
#!/usr/bin/perl -w
use strict;
use Socket;
use LWP::Simple;
use LWP::Protocol::http;
@LWP::Protocol::http::EXTRA_SOCK_OPTS = ( LocalAddr => 'Нужный IP');
getprint '
http://bash.org.ru';