請求perl高手 擷取ip hostname 腳本

fr222093

小弟最近在學perl，不知如何抓取本機的IP和hostname。可給些腳本參考嗎?

bikong0411

文件获取、或者从system分析、或者使用Socket

grshrd49

具体一点，你要则么抓！从哪里抓！

grshrd49

具体一点，你要则么抓！从哪里抓！

laputa73

举一
my $hostname=`hostname`;

墨迹哥

你骚微切割下，或用正则搞下。。

1. #!/usr/bin/perl
   
2. 
   
3. $hostname=`hostname`;
   
4. $ifconfig=`ifconfig eth0 |awk '/inet/{ print $2}'`;
   
5. #主机名
   
6. print $hostname;
   
7. #IP/网卡信息
   
8. print $ifconfig;
   
9. 
   

复制代码

兰花仙子

for hostname perl has a built-in module:

$ perl -MSys::Hostname -le 'print hostname'
lanhua.xianzi.com

lockeyou

回复 7# 兰花仙子


    学习了,之前也需要,留着了

laputa73

回复 6# 墨迹哥


    ifconfig 和  eth0 都不是跨平台的....

兰花仙子

laputa73 发表于 2013-07-18 17:43
回复 6# 墨迹哥

should be able to use Net::Interface.

http://search.cpan.org/~miker/Net-Interface-1.012/Interface.pm