一个正则的问题

shuigui56

哪位高手能帮我详细解释一下这个代码，谢谢！

1. #！/usr/bin/perl -P
   
2. use Socket;
   
3. s{
   
4.         (
   
5.               (?:
   
6.                       (?![-_])
   
7.                      [\w-] +
   
8.                      \.
   
9.                   ) +
   
10.                   [A-Za-z]
    
11.                   [\w-] +
    
12.             ）
    
13.   }{
    
14.               "$1" .
    
15.                    (  ($add=gethostbyname($1)  )
    
16. ?"[" .inet_ntoa($addr)."]"
    
17. : "[???]"
    
18.           )
    
19. )grex;
    
20.                         

复制代码

nuclearxin

这个 最后那个)grex  前面是 }这个吧 。 r 没见过啥意思？？？

nuclearxin

就是把 能用dns解析的 host 变成 host [ip]
       不能用dns解析的 host 变成 host[???]
这样

nuclearxin

有4错误
)grex ==> }gex

inet_ntoa($addr)  ===> inet_ntoa($add)

）  ==> )

#！/usr/bin/perl -P  ==>  #!/usr/bin/perl -p

shuigui56

恩，打错了，pdf加密了复制不了。cookbook 6.4 的一段代码，能不能解释的再详细点