perl批量建站脚本

本脚本适用于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