PERL:


PERL: - . 181


[A-Za-z] #

[\w-] + #

) # $1

}{ #

$1 8

( ($addr = gethostbyname($1)) #
? [ inet_ntoa($addr) ] #

#

} # / -

# / -

#  / -

. , . / (, s/\/\//\/ \//g) ­ (, s'//'/ /' g s{//}{/ /}g).

/ Perl ( ) # ­, , # ­ \, :

s/ 8

\# #

(\w+) #

\8 #

/${$1}/ 8

, , . $i++ # $i 1

/, Perl, ( ­) . -