Perl概述自动测试脚本语言（精选2篇）
Perl是Practical Extraction and Report Language(实用摘录和报告语言)的简称，是由Larry Wall所发展的。其最新版本为5.6。Perl的设计目标是帮助UNIX用户完成一些常见的任务，这些任务对于shell来说过于沉重或对移植性要求过于严格。
Perl是按GNU Public License的形式分发的，其实质是免费的，原先运行于UNIX和类UNIX系统，现在已可以方便地在OS/2，Windows9x，Windows/NT等系统下运行。
Perl是解释运行的，一般Perl程序的第一行需注明自己是一个Perl程序而不是shell程序，所以一般将下面一行语句：
#! /usr/bin/perl
作为文件的第一行。
第一个Perl程序
就拿各类书籍最常用显示”Hello! Welcome!“程序来说吧。下面是其源程序：
#! /usr/bin/perl
print ”你好!欢迎光临网络教室! n“;
这里的第一行说明了这是一个Perl程序，它也是Perl的注释，注释是从#开始至该行结束的所有文字。第二行是程序的可执行部分，这里只有一条print语句，如果你学过C语言，就能很快掌握它。
MILY: 宋体; mso-bidi-font-family: 宋体”>提问并保留结果
在此基础上做稍微复杂一点的改变，我们使该程序按你的名字打招呼。要做到这一点，需要一个变量来存放姓名。我们使用$name来保存姓名。
#!/usr/bin/perl
print “请问您的姓名?”;
$name=;
chop($name);
print “你好, $name，欢迎光临网上学园!n”;
这里第三行表示从终端获得行输入并赋值给$name，这里的$name的值有一个换行符，第四行chop($name)表示去掉$name的最后一个字符(即换行符)，
第五行显示输入。
增加选择
现在让我们为园主zmd编写一个特殊的欢迎辞，而对其他人则采用普通欢迎辞。要达到这样的效果必须将输入的姓名与zmd作比较，如果相同则执行特殊功能。
#!/usr/bin/perl
print “请问您的姓名?”;
$name=;
chop($name);
if ($name eq “zmd”){
print “欢迎zmd进入本系统!n”;
} else {
print “你好, $name，欢迎光临网上学园!n”;
}
这里第五行用eq操作符对两个字符串进行比较，相同则执行下一句，否则执行else下的语句(是不是和C语言差不多?)。
猜测密码
现在已经可以对zmd发不同的欢迎辞，但如何加上密码来控制权限呢?比如说，可以让除zmd以外的人都必须输入密码直到正确为止：
#!/usr/bin/perl
$password=“wsxy”; #密码为wsxy
print “请问您的姓名?”;
$name=;
chop($name);
if ($name eq “zmd”){
print “欢迎zmd进入本系统!n”;
} else {
print “你好, $name!n请输入密码：”;
$guess=;
chop($guess);
while ($guess ne $password){
print “密码错误，请重新输入：”;
$guess=;
chop($guess);
}
}
这里先将密码保存在标量变量$password中，然后当不是zmd登录后，先显示欢迎语句，然后要求输入密码，通过ne操作符将输入结果和$password相比较，密码相同则退出，不同则一直循环下去。
对于一个从来没使用过perl脚本的我来说还是有些难度的，直接上代码。
此脚本用于发送远程MySQL命令并且接收结果，功能比较简单，后面会渐渐完善。
#!/usr/bin/perl use Getopt::Long;use DBI; Getopt::Long::GetOptions( ‘host|h=s‘ =>$host,‘user|u=s‘ =>$user, ‘password|pw=s‘ =>$password,‘port|p=s‘ =>$port,‘command|c=s‘ =>$command, ‘groupfile|f=s‘ =>$groupfile, ‘help‘ =>$help ); #print help info my $printh=q{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 ”;}if(defined($password)){ print “onoff flag set to $password ”;}if(defined($command)){ print “help flag set to $command ”;}if(defined($help)){ print $printh}=cutsub execute_sql{my $dsn = “DBI:mysql:database=mysql;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(“ ”,@ary),“”;}$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 . $printh” }; open(IN,$groupfile); while($line= 使用方法 [root@centos511 ~]# ./6.perl -h 192.168.0.33 -u root -pw ‘xiaojun‘ -p 3306 -c ‘select user()‘ ;root@192.168.0.33[root@centos511 ~]# ./6.perl -g 2.txt -c ‘select user()‘ host:192.168.0.33command:select user()******BEGINroot@192.168.0.33******END *****************************************************host:192.168.0.33command:select user()******BEGINroot@192.168.0.33******END *****************************************************[root@centos511 ~]# cat 2.txt 192.168.0.33 root xiaojun 3306192.168.0.33 root xiaojun 3306[root@centos511 ~]# ./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 ★ Shell脚本检查IP格式及mysql操作实例 ★ mysql不支持union select的盲注方法脚本安全 ★ 一个基于mysql的登陆验证程序数据库 ★ 动漫脚本 范文 ★ 动画脚本范文 ★ MySQL数据类型解析 ★ 情景党课脚本 ★ 常见的MySQL解决方案 ★ 状态性写作
