发起 telnet 链接的时候，如何绑定 device？（已解决）

ChiyuT

cpan上有一个 Net::Telnet 模块，发起链接的时候，可以绑定源ip，比如：

1. 
   
2. my $obj= new Net::Telnet( Host => "10.1.1.1", Localhost => "10.1.1.11", Localfamily => "ipv4", Timeout => 30);

复制代码

但是现在情况特殊，绑定ip的办法失效。只能通过绑定 device 的方式才能正常运行，比如 eth1。请问有没有什么容易点儿的办法可以实现？或者有别的好使的模块也行。

比如 ping 的时候，可以通过 -I 指定 device：

1. ping -I eth1 10.1.1.1

复制代码

谢谢。

laputa1973

除非你重写这个模块.
MS绑定interface这个要求是不能跨平台的.

ChiyuT

laputa1973 发表于 2013-06-17 16:21
除非你重写这个模块.
MS绑定interface这个要求是不能跨平台的.

你说得很对，得自己添加这个功能。大概 10 行代码搞定。

laputa1973

我只弄过linux下的,不知道其他平台怎么实现
LZ可以分享下

ChiyuT

laputa1973 发表于 2013-06-18 18:25
我只弄过linux下的,不知道其他平台怎么实现
LZ可以分享下

在 Telnet 模块的 new 和  open 函数中，增加一个 $device  变量。

在 new 中，仿造 localhost 的形式对 $device 进行初始化。

1. sub device {
   
2.     my ($self, $device) = @_;
   
3.     my (
   
4.     $prev,
   
5.     $s,  
   
6.     );   
   
7. 
   
8.     $s = *$self->{net_telnet};
   
9.     $prev = $s->{device};
   
10. 
    
11.     if (@_ >= 2) {
    
12.     unless (defined $device) {
    
13.         $device = "";
    
14.     }   
    
15. 
    
16.     $s->{device} = $device;
    
17.     }   
    
18. 
    
19.     $prev;
    
20. }
    

复制代码

在 open 中，使用 setsockopt 函数进行设备绑定。

1. setsockopt $self, SOL_SOCKET, SO_BINDTODEVICE(), pack("Z*", $device) ;

复制代码

使用方法：

1. my $obj = new Net::Telnet( Host => "10.1.1.1", device => 'eth1', Localfamily => "ipv4", Prompt => "/#/");
   

复制代码

laputa73

setsockopt $self, SOL_SOCKET, SO_BINDTODEVICE(), pack("Z*", $device) ;

这个方法MS是linux专有的。

ChiyuT

laputa73 发表于 2013-06-20 09:20
setsockopt $self, SOL_SOCKET, SO_BINDTODEVICE(), pack("Z*", $device) ;

这个方法MS是linux专有的。
...

MS 下的东东我就不大懂了。但是 linux 下确保有效。

laputa73

回复 7# ChiyuT
不是说windows,
我是说其他unix平台好像（貌似）也是不行的