请问如何获取本机ip

笑面狐

如题
非常感谢！

笑面狐

原帖由 笑面狐 于 2006-8-31 15:30 发表
如题
非常感谢！

这个问题很难？

请大家协助。。。。

笑面狐

用perl获取本机ip很难？

兰花仙子

原帖由 笑面狐 于 2006-8-31 15:52 发表
用perl获取本机ip很难？

不难，为什么你不自己动手试试？

ulmer

原帖由 笑面狐 于 2006-8-31 15:52 发表
用perl获取本机ip很难？

Hi,
how can one answer your "uncool" question?
I can answer your question with "不难" and "难":

不难!
when you are already familiar with system network administration,
using perl to call system's programm and process its return data,
such as: /sbin/ifconfig eth0, or
cat /etc/network/interfaces, or
cat /etc/hosts, or cat /etc/hostname, ... etc.

when hostname is registed in DNS or your network, you can use
CPAN modules: suchas Net::Domain, Net::hostent, Net::Ping, Socket, ...etc.
here is some demo code: for late to demonstration if possiblw.

难!
when not familiar with both above and your localhost's ip assigned as DHCP!

regards, ulmer

屠龙

不同的系统有不同的方法……

笑面狐

用java很简单，但现在这个环境我想用perl，维护系统用，perl刚接触

自己解决这个问题了  在perl里调用shell  ifconfig  再提取ip地址 ，但不是我期望的那种方式(像java那种)，请高手指点一下

1. import java.net.*;
   
2. public class Test
   
3. {
   
4. public static void main(String[] args)
   
5. {
   
6. String addr = null;
   
7. try
   
8. {
   
9. InetAddress destAddr = InetAddress.getLocalHost();
   
10. addr = destAddr.getHostAddress();
    
11. }
    
12. catch (Exception e)
    
13. {
    
14. System.out.print("error");
    
15. }
    
16. System.out.print(addr);
    
17. }
    
18. }

复制代码

ulmer

原帖由 笑面狐 于 2006-9-1 11:55 发表
用java很简单，但现在这个环境我想用perl，维护系统用，perl刚接触

自己解决这个问题了  在perl里调用shell  ifconfig  再提取ip地址 ，但不是我期望的那种方式(像java那种)，请高手指点一下

[code]import  ...

Your question "用perl获取本机ip" is still unclear!!!
Your java code is only get localhost IP or loopback => 127.0.0.1 and same as
shell ifconfig lo, NOT ifconfig eh0!!!
Wenn you really want to get "本机ip" that means qualified network ip (i.e.: 192.168.123.22),
your javacode is a WRONG way to get it!!!

regards, ulmer

-------
perluser is not a blind for java

aaronvox

我在SunOS上 ifconfig -a|awk '/broadcast/ {print $2}' 可以
谁能告诉我在HP-UX上的shell怎么获得本机ip吗?

再有Perl自己可以知道本机ip吗？

lovepl

Net::Ifconfig::Wrapper