求一并发执行一个SQL的压力脚本

yuantong

各位高手好

    我想进行一个简单的压力测试，就是用perl实现控制多个会话，同时连到数据库执行一个SQL的脚本

如
test 100  20 test.sql

其中test是perl的程序名，100是指定并发数，20是每个会话执行20次，最后是每个会话执行的sql

请问这个perl可以实现吗？

bikong0411

可以啊，简单实现的话有fork就可以

yuantong

请问大虾们能不能提供个脚本？ 不懂perl啊，非常感谢

b114213903

1. use Parallel::ForkManager;
   
2. use DBI;
   
3. 
   
4. my $max_procs = 100;
   
5. my $pm = new Parallel::ForkManager($max_procs);
   
6. 
   
7. for(my $i=1;$i<=100;$i++){
   
8.         $pm->start($i) and next;
   
9.         for(1..20){
   
10.                 my $dbh = DBI->connect("DBI:mysql:database=***（数据库名）;host=***（数据库地址）", "***（数据库用户名）", "***（数据库密码）", {'RaiseError' => 1});
    
11.                
    
12.                 my $sth = $dbh->prepare( "SELECT *  FROM  `***（数据表名）`  WHERE  `***（数据表关键词）` =  '***（数据表关键词的值）'" );
    
13.                 $sth->execute();
    
14.                 if(my @A=$sth->fetchrow_array()){
    
15.                         print "$i\t$_\t@A\n";
    
16.                 }else{
    
17.                         print "$i\t$_\tNo hits\n";
    
18.                 }
    
19.                 $sth->finish();
    
20.                 $dbh->disconnect();
    
21.         }
    
22.         $pm->finish();
    
23. }
    
24. 
    
25. $pm->wait_all_children;
    
26. 
    
27. print "Finished!\n"

复制代码

试试这样可行不？！

yuantong

谢谢楼上的

我想调用的是oracle的

我已经把要执行的SQL放到一个shell里

请问如何实现

perl test.pl 100 20 test.sh?

shijiang1130

yuantong 发表于 2015-02-05 20:07
谢谢楼上的

我想调用的是oracle的

隔壁erlang版也有个例子

yuantong

请问楼上的能给个连接吗？

laputa73

LZ的需求根本就不用perl，一个简单sh就ok
#循环写100行
sqlplus xx/xx@xx @xx.sql  &
在sql里面重复写20次

yuantong

有perl的例子吗？

yeahnoob

yuantong 发表于 2015-02-12 23:10
有perl的例子吗？

真有兴趣，建议先看看per的基础文档。