本脚本适用于apache的配置文件，进行批量建站。
#!/usr/bin/perl
while(<>){
chomp;
my @p=split (/ /,$_);
print <<SITE;
<VirtualHost $p[2]:80>
VirtualDocumentRoot /home/web/$p[0]
ServerName $p[1]
ServerAlias www.$p[1]
<Directory /home/web/$p[0]>
Options FollowSymLinks
AllowOverride All
Order allow,deny
Allow from all
</Directory>
</VirtualHost>
STIE
while(<>){
chomp;
my @p=split (/ /,$_);
print <<SITE;
<VirtualHost $p[2]:80>
VirtualDocumentRoot /home/web/$p[0]
ServerName $p[1]
ServerAlias www.$p[1]
<Directory /home/web/$p[0]>
Options FollowSymLinks
AllowOverride All
Order allow,deny
Allow from all
</Directory>
</VirtualHost>
STIE
本文转自 mcshell 51CTO博客，原文链接：http://blog.51cto.com/mcshell/518517，如需转载请自行联系原作者
