利用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 "$1t"; $paths=<>; (undef,undef,$server )= split /s+/,$paths; #填充不需要的行 $pathss=<>; (undef,$servers )= split /s+/,$pathss; print "$serversn"; } }