perl socket编程。绑定本地地址以及绑定本地网卡。

最新推荐文章于 2021-02-25 16:55:58 发布

laputa73

最新推荐文章于 2021-02-25 16:55:58 发布

阅读量1.4k

点赞数

分类专栏： perl 网络服务

本文链接：https://blog.csdn.net/laputa73/article/details/8265730

版权

本文记录了在Perl中进行socket编程时如何绑定本地地址和本地网卡，涉及socket模块和io:socket:inet模块的使用。特别指出绑定IP与绑定网卡的不同效果，以及绑定网卡需要root权限的问题。对于无法获得root权限的情况，提出了使用expect+sudo的变通方法，但这种方式较为复杂，通常建议直接以root权限运行。

摘要由CSDN通过智能技术生成

最近在弄多网卡测试。本来以为很简单。不过还是费了一些力气找文档。集中记录一下。

1使用socket模块，绑定本地地址

#!/usr/bin/perl -w
# tcp_socket_cli.pl
use strict;
use Socket;
my $addr = $ARGV[0] || '220.181.x.x';
my $port = $ARGV[1] || '80';
my $dest = sockaddr_in($port, inet_aton($addr));
my $localaddr_port = sockaddr_in(0,inet_aton('192.168.1.8'));
 
my $buf = undef;
socket(SOCK,PF_INET,SOCK_STREAM,6) or die "Can't create socket: $!";
bind(SOCK,$localaddr_port) or die "Can't bind socket: $!";  
connect(SOCK,$dest)                or die "Can't connect: $!";

 close SOCK;

2.使用io:socket:inet模块，绑定本地地址

#!/bin/env perl
use strict ;
use IO::Socket qw(:DEFAULT :crlf);
use Time::HiRes qw(time);
use Time::Local;
  
my  $sock = IO::Socket::INET->new(PeerAddr => '220.181.x.x',
     PeerPort =>