Здравствуйте, уважаемые коллеги !!!

Буду благодарен если окажите помощь в решение моей задачи:

Есть сервер на linux на одном интерфейсе поднято несколько IP например:

eth0 — 192.168.1.1
eth0:0 — 192.168.1.2
eth0:1 — 192.168.1.3

необходимо с perl скрипта посылать запросы, но так что бы source ip был не всегда по умолчанию
192.168.1.1 а его можно было менять.

Опять же буду благодарен любым материалам где описанно как это можно сделать.

Здравствуйте, 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.

Здравствуйте, amanikin, Вы писали:

A>Извиняюсь за свою навязчивость, правильно ли я Вас понял:
A>- создаем сокет (команда socket)
A>- сими биндим его к нужному ip и назвачаем ему свободный порт (bind)
A>- далее выполняем connect

A>тем самым 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';