請求perl高手 擷取ip hostname 腳本

fr222093

回复 2# bikong0411
感謝你回覆~

fr222093

回复 6# 墨迹哥
感謝你回覆~ 我在試一下 。所有擷取資訊都是用這種方式嗎???  我是外行


   

墨迹哥

回复 12# fr222093


    我记得好像有个模块是专门读取的。不过不记得哪个模块了，因为用的不多。
   
    不过我觉得这样已经很方便了，你在我的基础上进行修改即可。用正则过滤下基本通用。

墨迹哥

回复 9# laputa73


    恩。。=  =# 回头我注意，我记得有个模块能够实现的。。你看看是不是仙子发的那个模块。

墨迹哥

回复 10# 兰花仙子


    恩。。这个貌似就是我之前说的那个模块。。写监控Monitor的时候研究过，后来没用上。

1. # From: asherman@fmrco.com (Aaron Sherman)
   
2. #
   
3. # This library is no longer being maintained, and is included for backward
   
4. # compatibility with Perl 4 programs which may require it.
   
5. # This legacy library is deprecated and will be removed in a future
   
6. # release of perl.
   
7. #
   
8. # In particular, this should not be used as an example of modern Perl
   
9. # programming techniques.
   
10. #
    
11. # Suggested alternative: Sys::Hostname
    
12. 
    
13. sub hostname
    
14. {
    
15.         local(*P,@tmp,$hostname,$_);
    
16.         if (open(P,"hostname 2>&1 |") && (@tmp = <P>) && close(P))
    
17.         {
    
18.                 chop($hostname = $tmp[$#tmp]);
    
19.         }
    
20.         elsif (open(P,"uname -n 2>&1 |") && (@tmp = <P>) && close(P))
    
21.         {
    
22.                 chop($hostname = $tmp[$#tmp]);
    
23.         }
    
24.         else
    
25.         {
    
26.                 die "$0: Cannot get hostname from 'hostname' or 'uname -n'\n";
    
27.         }
    
28.         @tmp = ();
    
29.         close P; # Just in case we failed in an odd spot....
    
30.         $hostname;
    
31. }
    
32. 
    
33. 1;
    

复制代码

这个是在库里挖出来的，不知道有木有用。。突然有个神奇的想法，这些命令不会用PERL实现的把。。 0 - -