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

代码语言

代码分类

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

作者:汤医森 / 发布于2015/3/5/ 1385

主要是解析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);
	}

试试其它关键字

同语言下

可能有用的

汤医森贡献的其它代码(3)