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