获取本机所有IP和设备的绑定情况代码,Perl代码库,德仔网

代码语言

代码分类

【Perl】获取本机所有IP和设备的绑定情况

作者: / 发布于2017/2/21/ 937

主要是解析ifconfig的输出，然后将需要的信息提取了出来。可以方便用于各种脚本集成。例子 mobilefzb@mobilefzb-MS-7680:~/git/code_tool/tool$ ifconfig | ./get_local_ip.plx lo 127.0.0.1 eth1 192.168.0.102

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

#首先，文件通过参数传入
my $arg_len = @ARGV;
my @lines;
if($arg_len == 1) {
    my $p_file_path = $ARGV[0];
    open(PROC_FILE,$p_file_path) || die("open $p_file_path error $?");
    @lines = <PROC_FILE>;
} elsif($arg_len == 0) {
    @lines = <STDIN>;
}

my $dev_name;
my $inet_addr;
my %dev_ip_map;

for(@lines)
{
    chomp($_);
    #首先判断起始字符串
    if(m/^\\w+/) {
        #表明是设备文件
        $dev_name = $_;
        $dev_name=~s/\\s+.*//i;
    } else {
        #取出IP地址
        if(m/inet /) {
            $inet_addr = $_;
            $inet_addr=~s/^\\s+//i;
            $inet_addr=~s/inet /ipv4/i;
            my @kv_str_arr = split(' ',$inet_addr);
            for(@kv_str_arr) {
                if(m/ipv4/) {
                    my @kv_arr = split(':',$_);
                    #将dev name和ipv4地址绑定在一起
                    $dev_ip_map{$dev_name} = $kv_arr[1];
                }
            }
        }
    }
}

while((my $k,my $v) = each %dev_ip_map) {
    print "$k $v\\n";
}

if($arg_len == 1) {
    close(PROC_FILE);
}
#该片段来自于http://www.codesnippet.cn/detail/0311201410892.html

试试其它关键字

同语言下

可能有用的

贡献的其它代码Label