装修之家网站,60天做网站,北京南站到北京西站,网络推广营销培训机构想写一些简化管理操作的脚本#xff0c;下面是基础脚本之一#xff0c;对于一个从来没使用过perl脚本的我来说还是有些难度的#xff0c;直接上代码。此脚本用于发送远程MySQL命令并且接收结果#xff0c;功能比较简单#xff0c;后面会渐渐完善。#!/usr/bin/perl use Get…想写一些简化管理操作的脚本下面是基础脚本之一对于一个从来没使用过perl脚本的我来说还是有些难度的直接上代码。此脚本用于发送远程MySQL命令并且接收结果功能比较简单后面会渐渐完善。#!/usr/bin/perl use Getopt::Long;use DBI; Getopt::Long::GetOptions( ‘host|hs‘ \$host, ‘user|us‘ \$user, ‘password|pws‘ \$password, ‘port|ps‘ \$port, ‘command|cs‘ \$command, ‘groupfile|fs‘ \$groupfile, ‘help‘ \$help ); #print help info my $printhq{usage : mysqlcon -h 192.168.0.33 -u root -pw ‘xiaojun‘ -p 3306 -c ‘show global status‘ or mysqlcon -g 2.txt -c ‘select user();‘cat 2.txt:192.168.0.33 root xiaojun 3306192.168.0.34 root xiaojun 3306options:-h database server *-u account name *-pw password for account *-p port for mysqld *-c command to execute *-help print help};podif(!defined($host)){ print page flag set to $page }if(defined($user)){ print user flag set to $user\n ;}if(defined($password)){ print onoff flag set to $password \n;}if(defined($command)){ print help flag set to $command \n;}if(defined($help)){ print $printh}cutsub execute_sql{my $dsn DBI:mysql:databasemysql;host$_[0]:$_[1];my ($dbh,$sth,ary);$dbh DBI-connect($dsn,$_[2],$_[3],{‘RaiseError‘ 1});$sth $dbh-prepare($_[4]);$sth-execute(); while(ary $sth-fetchrow_array()){print join(\t,ary),\n;} $sth-finish; $dbh-disconnect; }#execute_sql($host,$port,$user,$password,$command) ;unless (!defined($help)) { die $printh };if(defined($groupfile)){ unless (defined($command)) { die Wrong usage : No command input .\n $printh }; open(IN,$groupfile); while($line){ my argssplit /\s/,$line; print host:args[0]\ncommand:$command\n******BEGIN\n; execute_sql(args[0],args[3],args[1],args[2],$command) ; print ******END \n\n\n*****************************************************\n\n\n; }}else{unless (defined($host)) { die Wrong usage : No host input .\n $printh };unless (defined($user)) { die Wrong usage : No account input .\n $printh };unless (defined($password)) { die Wrong usage : No password input .\n $printh };unless (defined($port)) { die Wrong usage : No port number input .\n $printh };unless (defined($command)) { die Wrong usage : No command input .\n $printh };execute_sql($host,$port,$user,$password,$command) ;}使用方法[rootcentos511 ~]# ./6.perl -h 192.168.0.33 -u root -pw ‘xiaojun‘ -p 3306 -c ‘select user()‘ ;root192.168.0.33[rootcentos511 ~]# ./6.perl -g 2.txt -c ‘select user()‘ host:192.168.0.33command:select user()******BEGINroot192.168.0.33******END *****************************************************host:192.168.0.33command:select user()******BEGINroot192.168.0.33******END *****************************************************[rootcentos511 ~]# cat 2.txt 192.168.0.33 root xiaojun 3306192.168.0.33 root xiaojun 3306[rootcentos511 ~]# ./6.perl -helpusage : mysqlcon -h 192.168.0.33 -u root -pw ‘xiaojun‘ -p 3306 -c ‘show global status‘ or mysqlcon -g 2.txt -c ‘select user();‘cat 2.txt:192.168.0.33 root xiaojun 3306192.168.0.34 root xiaojun 3306options:-h database server *-u account name *-pw password for account *-p port for mysqld *-c command to execute *-help print help
