代码语言
.
CSharp
.
JS
Java
Asp.Net
C
MSSQL
PHP
Css
PLSQL
Python
Shell
EBS
ASP
Perl
ObjC
VB.Net
VBS
MYSQL
GO
Delphi
AS
DB2
Domino
Rails
ActionScript
Scala
代码分类
文件
系统
字符串
数据库
网络相关
图形/GUI
多媒体
算法
游戏
Jquery
Extjs
Android
HTML5
菜单
网页交互
WinForm
控件
企业应用
安全与加密
脚本/批处理
开放平台
其它
【
Perl
】
获取本机所有IP和设备的绑定情况
作者:
/ 发布于
2017/2/21
/
894
主要是解析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
试试其它关键字
同语言下
.
获取本机所有IP和设备的绑定情况
.
生成隨機密碼
.
取文件的最后修改时间
.
获取本机所有IP和设备的绑定情况
.
将perl脚本变成乱糟糟的一团
.
从 HTML网页中解析出链接
.
使用 HTTP::Request 请求 URL 并将响应保存到文件
.
使用指定的User-Agent抓取网页
.
使用 Net::SMTP发送邮件
.
编写的一个简单 Web服务器
可能有用的
.
获取本机所有IP和设备的绑定情况
.
生成隨機密碼
.
取文件的最后修改时间
.
获取本机所有IP和设备的绑定情况
.
将perl脚本变成乱糟糟的一团
.
从 HTML网页中解析出链接
.
使用 HTTP::Request 请求 URL 并将响应保存到文件
.
使用指定的User-Agent抓取网页
.
使用 Net::SMTP发送邮件
.
编写的一个简单 Web服务器
贡献的其它代码
Label
Copyright © 2004 - 2024 dezai.cn. All Rights Reserved
站长博客
粤ICP备13059550号-3