supersun's spacetag:,2008-11-03:/82009-08-06T08:16:38Z让系统保持在系统管理员掌握之中的关键，就是让尽可能多的任务自动完成……Movable Type Open Source 4.21-zh-cn红烧鸡块tag:supersun.biz,2009://8.9432009-08-06T08:07:37Z2009-08-06T08:16:38Z原料： 鸡，蒜，姜，葱，香菇调味料： 盐，老抽，糖，鸡精做法：1、将...supersun
原料：
]]>
DBD-mysql安装出错处理tag:supersun.biz,2009://8.9412009-07-06T08:37:44Z2009-07-06T08:40:39Zmysql安装在/usr/local/下perl Makefile.PL --m...supersun perl Makefile.PL --mysql_config=/usr/local/mysql/bin/mysql_config --testuser=root --testpassword=s3kr1t make make test 出现以下错误: PERL_DL_NONLAZY=1 /usr/bin/perl "-MExtUtils::Command::MM" "-e" "test_harness(0, 'blib/lib', 'blib/arch')" t/*.t t/00base....................String found where operator expected at t/00base.t line 20, near "BAIL_OUT "Unable to load DBI"" (Do you need to predeclare BAIL_OUT?) String found where operator expected at t/00base.t line 21, near "BAIL_OUT "Unable to load DBD::mysql"" (Do you need to predeclare BAIL_OUT?) syntax error at t/00base.t line 20, near "BAIL_OUT "Unable to load DBI"" syntax error at t/00base.t line 21, near "BAIL_OUT "Unable to load DBD::mysql"" BEGIN not safe after errors--compilation aborted at t/00base.t line 22. # Looks like your test died before it could output anything. t/00base....................dubious Test returned status 2 (wstat 512, 0x200) DIED. FAILED tests 1-6 Failed 6/6 tests, 0.00% okay t/10connect.................Use of uninitialized va lue in concatenation (.) or string at t/10connect.t line 20. skipped all skipped: ERROR: Can't continue test t/20createdrop..............Use of uninitialized value in concatenation (.) or string at t/20createdrop.t line 19. skipped all skipped: ERROR: . Can't continue test t/25lockunlock..............Use of uninitialized value in concatenation (.) or string at t/25lockunlock.t line 23. skipped all skipped: Can't connect to database ERROR: . Can't continue test t/29warnings................skipped all skipped: ERROR: install_driver(mysql) failed: Can't load '/usr/local/DBD-mysql-4.008/blib/arch/auto/DBD/mysql/mysql.so' for module DBD::mysql: libmysqlclient.so.16: cannot open shared object file: No such file or directory at /usr/lib64/perl5/5.8.5/x86_64-linux-thread-multi/DynaLoader.pm line 230. t/30insertfetch.............Use of uninitialized value in concatenation (.) or string at t/30insertfetch.t line 18. skipped all skipped: ERROR: . Can't continue test t/31insertid................Use of uninitialized value in concatenation (.) or string at t/31insertid.t line 18. make: *** [test_dynamic] Interrupt
cd /home/modeperl tar zxvf mod_perl-2.0-current.tar.gz cd mod_perl-2.0.4/ perl Makefile.PL MP_APXS=/usr/local/apache2/bin/apxs make make test make install
编译libapreq2 for apache2 cd /home/modeperl tar zxvf libapreq2-2.12.tar.gz cd libapreq2-2.12 ./configure --with-expat=/usr/local/apr-util/ --with-apache2-apxs=/usr/local/apache2/bin/apxs make make test make install
再安装Apache2::Request模块 perl Make.PL --with-expat=/usr/local/apr-util/ --with-apache2-apxs=/usr/local/apache2/bin/apxs make make test make install
]]>
系统的平均负载loadavgtag:supersun.biz,2009://8.9392009-05-08T08:38:31Z2009-05-08T08:42:04Zsupersun
/proc/loadavg The load average numbers give the number of jobs in the run queue (state R) or waiting for disk I/O (state D) averaged over 1, 5, and 15 minutes. They are the same as the load average numbers given by uptime(1) and other programs. 使用ps找出这两种状态的进程数 ps aux |grep ' [D|R] '|wc -l 上面所获得的值和uptime得到的值基本相同。 如果状态为R的进程数很多，说明CPU瓶颈，如果状态为D的进程很多，说明IO出现瓶颈。
#!/usr/bin/perl #chart_create.pl #author: supersun06@gmail.com #url: http://supersun.biz use strict; use lib dirname($0);
use perlchartdir; use Getopt::Std;
sub line_grap; sub bar_grap; sub usage;
my %opts; getopt('fmtpxy',\%opts);
my $file=$opts{f}; my $mode=$opts{m}; my $title=$opts{t}; my $png_file=$opts{p}; my $x_title=$opts{x}; my $y_title=$opts{y};
$x_title="X" if $x_title eq ''; $y_title="Y" if $y_title eq ''; usage unless $mode eq "line" || $mode eq "bar"; usage if -z $title || -z $png_file; die "$file isn't exsit\n" unless -f $file;
my $data={}; open FD,$file; my @entries=<FD>; my $head=[]; @{$head}=split /\s+/,$entries[0]; foreach my $entry (@entries){ chomp $entry; my @utils=split /\s+/,$entry; foreach my $i (0..scalar(@$head)-1){ push @{$$data{$$head[$i]}},$utils[$i]; } } if($mode eq "bar"){ bar_grap($png_file,$title,$x_title,$y_title,$head,$data); }else{ line_grap($png_file,$title,$x_title,$y_title,$head,$data); }
sub bar_grap { my ($file,$head,$x_title,$y_title,$lable,$data)=@_; my $x_lable_tag= shift @$lable; print "$x_lable_tag\n"; shift @{$$data{$x_lable_tag}};
my @corlor=(0xffff00, 0x00ff00, 0x9999ff, 0xff0000, 0x223366,0xff8800, 0xa0bdc4, 0x999966, 0x333366, 0xc3c3e6);
my $c = new XYChart(1200, 400); $c->addTitle($head, "", 10); $c->setPlotArea(80, 50, 1100, 300, 0xffffc0, 0xffffe0); $c->addLegend(55, 18, 0, "", 8)->setBackground($perlchartdir::Transparent); $c->yAxis()->setTitle($y_title); $c->xAxis()->setTitle($x_title); $c->yAxis()->setTopMargin(20); $c->xAxis()->setLabels($$data{$x_lable_tag}); my $layer = $c->addBarLayer2($perlchartdir::Side, 7); foreach my $util (@$lable){ my $col=shift @corlor; my $tag=shift @{$$data{$util}}; $layer->addDataSet($$data{$util},$col, "$tag"); } $c->makeChart("$file") }
运行 perl chart_create.pl -f data -m line -t "a test " -p line.png -x date -y pv perl chart_create.pl -f data -m line -t "a test" -p bar.png -x date -y pv
Windows下使用方法： 下载ActivePerl http://www.activestate.com/activeperl/features/ 下载ChartDirector，平台选择windows http://download2.advsofteng.com/chartdir_perl_win32.zip 下载脚本，将其存放到D:\perl\chartdir_perl_win32\ChartDirector\lib\chart_create.pl chart_create.pl perl chart_create.pl -f c.txt -m bar -t "a test " -p line.png -x date -y pv 运行命令即可。
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime; my $awstats_path="/awstats/awstats.pl"; print header(-charset=>'gbk'); if(param('host')){ $year+=1900; $mon++; my $host=param("host"); my $link_tag=1;
print start_html("awstats for $host"); print h1({-align=>"center"},"awstats for $host"),hr({-align=>"center"});
use strict; use Event; use Linux::Inotify2; use POSIX; use IO::File; use Sys::Syslog qw(:DEFAULT setlogsock);
my $script_dir="/opt/"; our $CONF_FILE=$script_dir."db.conf";
#For Daemon ################################################### sub daemonize { chdir "/"; open STDIN, "</dev/null"; open STDOUT, ">/dev/null"; open STDERR, ">&STDOUT"; defined(my $pid=fork) or die "Can't fork: $!\n"; exit if($pid); POSIX::setsid() or die "Can't start a new session: $!"; umask 0; }
sub add_watch { my ($inotify,$log_file)=@_; open FH,$log_file; while(<FH>){ my $file=$_; chomp $file; $inotify->watch ($file, IN_ALL_EVENTS, \&mywatch) } close FH; }
