perl批量创建虚拟主机的脚本 perl批量建站脚本

#!/usr/bin/perl
#site: www.jb200.com
#
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