首页 手机软件 手机游戏 单机游戏 资讯文章 专题下载 游戏合集 文章合集 php下载 php教程 电脑软件
+ -
当前位置：首页 → 问答吧 → Perl 监控Mysql主从问题.

Perl 监控Mysql主从问题.

时间：2010-10-19

来源：互联网

本人想用perl来监控Mysql主从的,便从网上copy下来一些代码,稍稍的修改下,发现报错错误是，
Can't call method "prepare" on an undefined value at duplicate.pl line 39.   查了半天还是差不出来。望高手出马.
  1. #!/usr/bin/perl
  2. # Use mandatory external modules
  3. use strict;
  4. use warnings;
  5. use DBI;
  6. use Time::HiRes;
  7. use POSIX "strftime";
  8. my $host         = '192.168.1.240';
  9. my $user         = 'dodo';
  10. my $pass         = 'dodo';
  11. my $port         = '3306';
  12. my $max_behind_m = 120;
  13. my $check_log    = '/var/log/mysql_check_log';

  15. # open  log--file
  16. open (FH, ">> $check_log") or die $!;

  18. # connect to servers (this)
  19. my $this_dbh = &MysqlConnect( $host, $port, $user, $pass );

  21. # Get slave info
  22. my $slave_status = &MysqlQuery( $this_dbh, 'show slave status' );
  23. print FH "ERROR: SQL Query Error: " . $this_dbh->errstr unless ($slave_status);
  24. my $Slave_IO              = $slave_status->{Slave_IO_Running};
  25. my $Slave_SQL             = $slave_status->{Slave_SQL_Running};
  26. my $Seconds_Behind_Master = $slave_status->{Seconds_Behind_Master};
  27. print "IO:\t\t $Slave_IO\n";
  28. print "SQL:\t\t $Slave_SQL\n";
  29. print "Behind_Master:\t $Seconds_Behind_Master\n";

  31. sub MysqlConnect {
  32.     my ( $host, $port, $user, $pass ) = @_;
  33.     my $dsn = "DBI:mysql:host=$host;port=$port";
  34.     return DBI->connect( $dsn, $user, $pass, { PrintError => 0 } );
  35. }

  37. sub MysqlQuery {
  38.     my ( $dbh, $query ) = @_;
  39.     my $sth = $dbh->prepare($query);
  40.     my $res = $sth->execute;
  41.     return undef unless ($res);
  42.     my $row = $sth->fetchrow_hashref;
  43.     $sth->finish;
  44.     return $row;
  45. }

  47. #-----------------------------------------------------------------
  48. sub ExecuteQuery {
  49.     my ( $dbh, $query ) = @_;
  50.     my $sth = $dbh->prepare($query);
  51.     return $sth->execute;
  52. }

  54. #-----------------------------------------------------------------
  55. sub current_time {
  56.     my $time_now = POSIX::strftime( "[%Y-%m-%d %H:%M:%S]", localtime );
  57.     return $time_now;
  58. }
复制代码

作者: mitmax   发布时间: 2010-10-19

19. my $this_dbh = &MysqlConnect( $host, $port, $user, $pass );
这里连接失败返回 undef 了应该,你应该检查这个错误的

作者: zhlong8   发布时间: 2010-10-19

Thank 是连接数据库问题

作者: mitmax   发布时间: 2010-10-19

相关阅读 更多

热门阅读

热门下载

更多
关于本站 免责申明 联系我们

Copyright 2006-2020 php爱好者(phpfans.net) All Rights Reserved.备案号：湘ICP备2023016114号-2

本站为非盈利性网站，不接受任何广告。本站所有资源均由网友上传，如有侵权，请发邮件至 [email protected] phpfans.net