mytop的编译安装

Mytop工具的安装

mytop 是一个类似 Linux 下的 top 命令风格的 MySQL 监控工具，可以监控当前的连接用户和正在执行的命令。

效果图

 

 

1.编译

#cd  /usr/loacl/src/tarbag

#wget http://jeremy.zawodny.com/mysql/mytop/mytop-1.6.tar.gz

#tar -zxvf  mytop-1.6.tar.gz -C ../software

#cd mytop-1.6

#perl Makefile.PL

# make

#make test

# make install

#mytop

想要mytop更好的发挥他的功能，要确保满足一下要求，注意要顺序安装。

* Perl 5.005 or newer

* Getopt::Long

* DBI and DBD::mysql

* Term::ReadKey from CPAN

2.常见错误

（1）出现报错：

[root@www mytop-1.6]# mytop 

                    Can't locate Term/ReadKey.pm in @INC (@INC contains: /usr/lib64/perl5/site_perl/5.8.8/x86_64-linux-thread-multi /usr/lib/perl5/site_perl/5.8.8 /usr/lib/perl5/site_perl /usr/lib64/perl5/vendor_perl/5.8.8/x86_64-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.8 /usr/lib/perl5/vendor_perl /usr/lib64/perl5/5.8.8/x86_64-linux-thread-multi /usr/lib/perl5/5.8.8 .) at /usr/bin/mytop line 175

当我们想使用Perl的时候，很可能会遇到当前系统不存在某个perl模块的情况，这时我们可以通过使用CPAN来对相应的模块进行获取

这说明系统缺少Term/ReadKey.pm这个模块，我们使用cpan来安装

#cpan

如果是第一次，这里会提示你是否手动配置，我是选择否

cpan>install Term::ReadKey

cpan>exit

（2）出现报错：

     Use of uninitialized value in substitution (s///) at /usr/bin/mytop line 958.

#vim  /usr/bin/mytop

修改这两部分

第一部分

#!/usr/bin/perl -w

+

+eval 'exec /usr/bin/perl -w -S $0 ${1+"$@"}'

+    if 0; # not running under some shell

 #

 # $Id: mytop,v 1.53 2003/09/18 17:58:36 jzawodn Exp $

 第二部分         

{

             $thread->{Host} =~ s/:\d+$//;

             my $host = gethostbyaddr(inet_aton($thread->{Host}), AF_INET);

-            $host =~ s/^([^.]+).*/$1/;

-            $thread->{Host} = $host;

+            if ($host)

+            {

+              $host =~ s/^([^.]+).*/$1/;

+              $thread->{Host} = $host;

+            }

         }

（3）出现报错  Error in option spec: "long|!"

  #vim /usr/in/mytop

"long|!"              => \$config{long_nums}

  改成

"long|long_nums|l!"              => \$config{long_nums}

 

 

 

 

 

如果不熟悉工具的使用，请#man  mytop来查看mytop的使用规范