利用perl提取web配置檔案中的域名對應的路徑

server 

                { 

                                listen        80; 

                                server_name www.mcshell.org mcshell.org; 

                                index    index.php index.html index.htm; 

                                root    /data0/web/mcshell; 

                                error_page 404 =http://www.mcshell.org; 

if (!-f $request_filename){ 

set $rule_0 1$rule_0; 

} 

if (!-d $request_filename){ 

set $rule_0 2$rule_0; 

} 

if ($rule_0 = “21”){ 

rewrite ^/(.*)?*$ /index.php?_route_=$1 last; 

} 


if ($host != `www.mcshell.org` ) { 

rewrite ^/(.*)$ http://www.mcshell.org/$1 permanent; 

} 

.. 

..

#!/usr/bin/perl 

while(<>){ 

chomp; 

if(/server_names(.*);/){ 

print “$1 “; 

$paths=<>; 

(undef,undef,undef,undef,$server )= split /s+/,$paths; #填充不需要的行 

$pathss=<>; 


(undef,undef,$servers )= split /s+/,$pathss; 


print “$servers
“; 

} 


}