perl脚本备份还原sqlserver

爱是王道

　　写了一个perl脚本灵活来备份或还原。
　　1.将config.txt保存到c盘根目录
　　username:sa
password:passwd123!
　　根据实际情况修改该文件内容
　　
　　2.执行bcp.pl

　　
　　#!C:\Perl64\bin
#通过BCP备份和还原SQLSERVER指定的表
use 5.014;
　　#加载用户和密码配置文件
my $username ;
my $passwd;
　　##获取用户名
my $dir="c:";
$dir=$dir."/";
my $filename="config.txt";
my $keysword="username:";
my $count="50";
my $begincount=index($keysword,":");
my($file);
open(FILEH,$dir.$filename);
while(my $test=<FILEH>){
   if((index($test,$keysword))>=0){
my $test1=substr($test,$begincount&#43;1,$count);
    #print &quot;$test1&quot;;
chomp($username=$test1);
   }
}
close(FILEH);
　　
##获取密码
my $dir=&quot;c:&quot;;
$dir=$dir.&quot;/&quot;;
my $filename=&quot;config.txt&quot;;
my $keysword=&quot;password:&quot;;
my $count=&quot;50&quot;;
my $begincount=index($keysword,&quot;:&quot;);
my($file);
open(FILEH,$dir.$filename);
while(my $test=<FILEH>){
   if((index($test,$keysword))>=0){
my $test2=substr($test,$begincount&#43;1,$count);
    #print &quot;$test2&quot;;
chomp($passwd=$test2);
   }
}
close(FILEH);
print &quot;-------------------------------------------------------------------\n&quot;;
print &quot;请首先检查用户和密码配置文件config.txt保存路径是否为$dir$filename\n&quot;;
print &quot;-------------------------------------------------------------------\n&quot;;
　　print &quot;重要提示:备份表操作请输入0;还原表操作请输入1\n&quot;;
print &quot;请输入操作代码:&quot;;
chomp(my $inp=<STDIN>);
print &quot;你输入的操作代码为$inp\n&quot;;
　　#判断输入为0即备份操作
if ($inp eq 0){
print '服务器IP:(不输入默认为localhost)';
chomp(my $a = <STDIN>);
if ($a==''){
$a='localhost';
}else{
print &quot;你输入的服务器IP为:$a\n&quot;;
}
　　
print '用户名:';
chomp(my $b = <STDIN>);
print &quot;你输入的用户名为:$b\n&quot;;
if($b eq $username) {
　　print &quot;用户通过!\n&quot;;
　　} else {
  print &quot;对不起,用户名错误\n&quot;;
  exit;
}
　　
　　print &quot;用户密码: &quot;;
chomp (my $readPsw = <STDIN>);
if($readPsw eq $passwd) {
　　print &quot;密码正确!\n&quot;;
　　} else {
  print &quot;对不起,密码错误\n&quot;;
  exit;
}
　　
print &quot;重要提示:备份表的表名&#26684;式为:test.dbo.t1\n&quot;;
print '备份的表:';
chomp(my $d = <STDIN>);
print &quot;你输入的备份的表:$d\n&quot;;
　　
print '保存路径:';
chomp(my $e = <STDIN>);
print &quot;你输入的保存路径:$e\n&quot;;
　　if (-e $e){
print &quot;$e已经存在!是否删除?(y删除;n不删除)\n&quot;;
chomp(my $i=<STDIN>);
given ($i)
{
when (&quot;y&quot;) {
unlink $e;
print &quot;开始备份表!\n&quot;;
system (&quot; bcp $d out $e -c -t ',' -m 1 -a 49152 -b 5000 -F 1 -S $a -U $b -P $readPsw &quot;);
}
when  (&quot;n&quot;)
{
print &quot;-----------备份已经终止-----------\n&quot;;
print &quot;指定文件存在,请重新输入文件名!\n&quot;;
}
default {print &quot;只能输入y或n!\n&quot;;}
}
}
else{
{
system (&quot; bcp $d out $e -c -t ',' -m 1 -a 49152 -b 5000 -F 1 -S $a -U $b -P $readPsw &quot;);
}
}
}
　　#判断输入为1还原操作
elsif($inp eq 1){
print '服务器IP:(不输入默认为localhost)';
chomp(my $a = <STDIN>);
if ($a==''){
$a='localhost';
}else{
print &quot;你输入的服务器IP为:$a\n&quot;;
}
print '用户名:';
chomp(my $b = <STDIN>);
print &quot;你输入的用户名为:$b\n&quot;;
if($b eq $username) {
　　print &quot;用户通过!\n&quot;;
　　} else {
  print &quot;对不起,用户名错误\n&quot;;
  exit;
}
　　
　　print &quot;用户密码: &quot;;
chomp (my $readPsw = <STDIN>);
if($readPsw eq $passwd) {
　　print &quot;密码正确!\n&quot;;
　　} else {
  print &quot;对不起,密码错误\n&quot;;
  exit;
}
　　print '需要还原的表:';
chomp(my $d = <STDIN>);
print &quot;你输入的备份的表:$d\n&quot;;
　　
print '备份保存路径:';
chomp(my $e = <STDIN>);
if (-e $e) {
print &quot;你输入的备份保存路径:$e\n&quot;;
system (&quot; bcp $d in $e -c -t ',' -m 1 -a 49152 -b 5000 -F 1 -S $a -U $b -P $readPsw &quot;);
}
else {
print &quot;对不起,指定的备份文件$e不存在,请核实!\n&quot;;
}
}
else{
print &quot;请参考重要提示!\n&quot;;
}
system 'pause';