一个简单的gw perl程序

use Switch;

sub sync_gw_yd
{
? ? my ($in_ip,$out_ip) = @_;
? ? my @in_ip = @$in_ip;
? ? my @out_ip = @$out_ip;
? ? foreach $var (@out_ip)
? ? { ??
? ? ? ? my(undef,undef,$tmp,$out_suffix)= split /./,$var;
? ? ? ? foreach $j (@in_ip)
? ? ? ? { ??
? ? ? ? ? ? my(undef,$in_suffix)= split /./,$j;
? ? ? ? ? ? if($in_suffix == $out_suffix)
? ? ? ? ? ? { ??
? ? ? ? ? ? ? ? if(! -e $in_suffix)
? ? ? ? ? ? ? ? {
? ? ? ? ? ? ? ? ? ? mkdir $in_suffix or die "cannot make $in_suffix directory:$!n";
? ? ? ? ? ? ? ? } ??
? ? ? ? ? ? ? ? open $template,"<","mcp.gateway.conf.template";
? ? ? ? ? ? ? ? open $cnf,">","$in_suffix/mcp.gateway.conf";
? ? ? ? ? ? ? ? while(<$template>)
? ? ? ? ? ? ? ? { ??
? ? ? ? ? ? ? ? ? ? s/$outip/$var/;
? ? ? ? ? ? ? ? ? ? s/$inip/$j/;
? ? ? ? ? ? ? ? ? ? s/$idc/1/;
? ? ? ? ? ? ? ? ? ? s/$port/80/;
? ? ? ? ? ? ? ? ? ? if($in_suffix == 97)? ? ? next if /$online4/;
? ? ? ? ? ? ? ? ? ? }
? ? ? ? ? ? ? ? ? ? switch($in_suffix)
? ? ? ? ? ? ? ? ? ? {
? ? ? ? ? ? ? ? ? ? ? ? case 97 {
? ? ? ? ? ? ? ? ? ? ? ? ? ? s/$online1/online_redis_m3/;
? ? ? ? ? ? ? ? ? ? ? ? ? ? s/$online2/online_redis_m4/;
? ? ? ? ? ? ? ? ? ? ? ? ? ? s/conn_pool_size=2500000/conn_pool_size=1100000/;
? ? ? ? ? ? ? ? ? ? ? ? ? ? s/heartbeat_time=300/heartbeat_time=270/;
? ? ? ? ? ? ? ? ? ? ? ? ? ? s/$count/2/;
? ? ? ? ? ? ? ? ? ? ? ? }
? ? ? ? ? ? ? ? ? ? ? ? case 99 {
? ? ? ? ? ? ? ? ? ? ? ? ? ? s/$online1/online_redis_d1/;
? ? ? ? ? ? ? ? ? ? ? ? ? ? s/$online2/online_redis_d2/;
? ? ? ? ? ? ? ? ? ? ? ? ? ? s/$online3/online_redis_d3/;
? ? ? ? ? ? ? ? ? ? ? ? ? ? s/$online4/online_redis_d4nredis5=online_redis_e1nredis6=online_redis_e2nredis7=online_redis_
e3nredis8=online_redis_e4/;
? ? ? ? ? ? ? ? ? ? ? ? ? ? s/$count/8/;
? ? ? ? ? ? ? ? ? ? ? ? }
? ? ? ? ? ? ? ? ? ? { ??
? ? ? ? ? ? ? ? ? ? ? ? next if /$online3/;

? ? ? next if /$online4/;
? ? ? ? ? ? ? ? ? ? }
? ? ? ? ? ? ? ? ? ? switch($in_suffix)
? ? ? ? ? ? ? ? ? ? {
? ? ? ? ? ? ? ? ? ? ? ? case 97 {
? ? ? ? ? ? ? ? ? ? ? ? ? ? s/$online1/online_redis_m3/;
? ? ? ? ? ? ? ? ? ? ? ? ? ? s/$online2/online_redis_m4/;
? ? ? ? ? ? ? ? ? ? ? ? ? ? s/conn_pool_size=2500000/conn_pool_size=1100000/;
? ? ? ? ? ? ? ? ? ? ? ? ? ? s/heartbeat_time=300/heartbeat_time=270/;
? ? ? ? ? ? ? ? ? ? ? ? ? ? s/$count/2/;
? ? ? ? ? ? ? ? ? ? ? ? }
? ? ? ? ? ? ? ? ? ? ? ? case 99 {
? ? ? ? ? ? ? ? ? ? ? ? ? ? s/$online1/online_redis_d1/;
? ? ? ? ? ? ? ? ? ? ? ? ? ? s/$online2/online_redis_d2/;
? ? ? ? ? ? ? ? ? ? ? ? ? ? s/$online3/online_redis_d3/;
? ? ? ? ? ? ? ? ? ? ? ? ? ? s/$online4/online_redis_d4nredis5=online_redis_e1nredis6=online_redis_e2nredis7=online_redis_
e3nredis8=online_redis_e4/;
? ? ? ? ? ? ? ? ? ? ? ? ? ? s/$count/8/;
? ? ? ? ? ? ? ? ? ? ? ? }

? ? ? ? ? ? ? ? ? ? }#end switch ? ? ? ? ? ? ? ? ? ? print $cnf $_; ? ? ? ? ? ? ? ? }#end while ? ? ? ? ? ? ? ? close $template; ? ? ? ? ? ? ? ? close $cnf; ? ? ? ? ? ? ? ? #$tmp=`rsync -z $in_suffix/mcp.gateway.conf $j::gwconf/redis.rc --port=7874`; ? ? ? ? ? ? ? ? unlink "$in_suffix/mcp.gateway.conf"; ? ? ? ? ? ? ? ? rmdir $in_suffix ? ? ? ? ? ? }#end if ? ? ? ? }#end for in ? ? }#end for out }