svn import 并 checkout

#!/bin/sh??
 # import 动作
 # svn  delete svn://127.0.0.1/svn_import/ --username skyet --password 123456 -m # "delete"

 # load svn 文件目录?
 svn_load_path=svn://127.0.0.1/import_test_11/
 #svn_load_path=$1

 local_import_path=/home/skyet/code/svnimport/
 #local_import_path=$2

 # 导入本地 import 路径
 local_import_path=$( echo $local_import_path |perl -ne 's//$//g;print;' );

 #svn 帐号名 ，密码?
 username=skyet
 password=123456


 fpath_name=$( echo $local_import_path |perl -F"/" -ane 'print "/";map{print "$F[$_]/" }(1..($#F-1))' );
 path_name=$( echo $local_import_path |perl -F"/" -ane 'print $F[-1]' );
 svn mkdir $svn_load_path --username $username --password $password -m "mkdir import dir"
 svn list   $svn_load_path --username $username --password $password

 svn import $local_import_path $svn_load_path --username $username --password $password -m "import"?
 mv $local_import_path  $local_import_path.bak

 svn co  $svn_load_path $fpath_name$path_name --username $username --password $password