『AskWan』

in different  context have different value
eg:
saclar context
print scalar (localtime);

then output :
Thu Oct 29 18:50:01 2009

but in list context ;
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =localtime(time);
$sec    0 ~ 59
$min    0 ~ 59
$hour  0 ~ 23
$mday   1~31
$mon     0 ~ 11
$year   after 1900,it passed years
$wday    0 ~ 6
$yday    0 ~365
$isdst   insignificant for me

can use this to get timestamp
#!/usr/bin/perl -w my ($sec,$min,$hour,$mday,$mon,$year)=(localtime)[0..5]; my ($sec,$min,$hour,$mday,$mon,$year)=($sec,$min,$hour,$mday,$mon+1,$year+1900); $timestamp=$year."-".$mon."-".$mday." ".$hour.":".$min.":".$sec; print $timestamp."\n";
output:
2009-10-29 19:2:40

have some defect ablove,use this
#!/usr/bin/perl -w my  ($sec,$min,$hour,$mday,$mon,$year) = (localtime)[0..5]; ($sec,$min,$hour,$mday,$mon,$year) = (     sprintf("%02d", $sec),     sprintf("%02d", $min),     sprintf("%02d", $hour),     sprintf("%02d", $mday),     sprintf("%02d", $mon + 1),     $year + 1900); $timestamp=$year."-".$mon."-".$mday." ".$hour.":".$min.":".$sec; print $timestamp."\n";
output:
2009-10-29 19:02:45

you can also use POSIX functions:
eg
#!/usr/bin/perl -w use POSIX qw(strftime); $timestamp1= strftime "%Y-%m-%d %H:%M:%S", gmtime;#GMT Zone $timestamp2 = strftime "%Y-%m-%d %H:%M:%S", localtime;

output:
2009-10-29 11:10:44
2009-10-29 19:10:44

first, install  DBI and DBD::Pg module

come next two example I have writen for testing:

example one:
#!/usr/bin/perl -w #this is an example writen by askwan to insert into somedata to a table use DBI; my $dbh = DBI->connect("DBI:Pg:dbname="askwan.com";host=localhost", "postgres", "postgres", {AutoCommit => 0,'RaiseError' => 1,PrintError => 1}); # The AutoCommit attribute should always be explicitly set for(my $i=0;$i<100;$i++){ # execute INSERT query my $rows = $dbh->do("INSERT INTO test(id, name) VALUES ('id_$i', 'name_$i')"); print "$i row(s) inserted \n"; } my $sth = $dbh->prepare("SELECT id, name FROM test"); $sth->execute(); while(my $ref = $sth->fetchrow_hashref()) {     print "$ref->{'id'} is a $ref->{'name'}\n"; } $dbh->disconnect();

example two:
#!/usr/bin/perl -w #this is an example writen by askwan to query some info from PostgreSql use DBI; $dbname="askwan"; $host="localhost"; $port="5432"; $username="postgres"; $password="postgres"; $dbh = DBI->connect("dbi:Pg:dbname=$dbname;host=$host;port=$port;",                       $username,                       $password,                       {AutoCommit => 0, RaiseError => 1, PrintError => 0}                      ); $sth=$dbh->prepare('select datname,blks_read,blks_hit from pg_stat_database'); $sth->execute(); print sprintf("%-20s%-20s%-20s","datname","blks_read","blks_hit"),"\n"; print "-" x 60 ."\n"; my @data; my ($datname,$blk_read,$blks_hit); while(@data=$sth->fetchrow_array()) {      ($datname,$blk_read,$blks_hit)=@data;      print sprintf("%-20s%-20s%-20s","$datname","$blk_read","$blks_hit"),"\n"; } $dbh->disconnect();output :

datname             blks_read           blks_hit            
------------------------------------------------------------
template1           0                   0                   
template0           0                   0                   
postgres            136                 5955                
askwan              124                 7396

        

net-snmp
下载地址：http://ncu.dl.sourceforge.net/project/net-snmp/net-snmp/5.4.2.1/net-snmp-5.4.2.1.tar.gz
解压然后编译，编译参数

如编译报错：

这是缺少libperl-dev开发库,安装上

然后make ;make install
可以用snmpconf配置snmpd.conf，也可用例子文件

然后根据需要修改此文件

启动


测试



---------END------------