UNIX - Perl 批处理。

 

#! /bin/ksh

#source=$1
#dest=$2
#portnumber=$3
#exp=$4

/home/genuser/makelinks.pl -bd $1 -hd $2

var1=$2
#var2=$3
#var3=$1
var4=$3
let var4=$3+10
var5=$2/etc/geneva.ini
let var1=$3+12
var6=$2/etc/dbaserver.ini
#echo $var1
#echo $var2
#echo $var3
echo $var4
echo $var5
#sed -e s/4635/$3/g -e s/4630/$var4/g -e s,/usr/advent/geneva-8.0.0,$2,g $var5 >$2/etc/geneva.init
sed -e s/4635/$3/g -e s/4630/$var4/g -e s,/usr/advent/geneva-.....,$2,g $var5 >$2/etc/geneva.init
rm -rf $var5
cp $2/etc/geneva.init $var5
rm -rf $2/etc/geneva.init
sed -e s/4635/$3/g -e s/4640/$var1/g $var6 >$2/etc/dbaserver.init
rm -rf $var6
cp $2/etc/dbaserver.init $var6
rm -rf $2/etc/dbaserver.init

GVHOME=$2
export GVHOME
cd $GVHOME/bin
echo $GVHOME/bin
newaga --skm
importaga -f $4 --skm
start_servmgr
start_dbaserver