『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

        

the first way:
#!/usr/bin/perl -w use strict; use DBI; my $dbh = DBI->connect( 'dbi:Oracle:askwan', 'scott', 'scott',{ RaiseError => 1, AutoCommit => 0 } ); my $sql = qq{ SELECT 'askwan.com' FROM DUAL }; my $sth = $dbh->prepare( $sql ); $sth->execute(  ); while ( my($String) = $sth->fetchrow_array) {    print $String, "\n"; } $dbh->disconnect(  );

the second way:
#!/usr/bin/perl -w use strict; use DBI; my $dbh = DBI->connect( 'dbi:Oracle:askwan', 'scott', 'scott',{ RaiseError => 1, AutoCommit => 0 } ); print $dbh->selectrow_array(qq{ SELECT 'askwan.com' FROM DUAL }); $dbh->disconnect(  );

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

#!/usr/bin/perl -w $file=shift; open(FD,"$file"); while(<FD>){     m/(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})/;     $IP{$1}++; } print "Client IPs\t\tNum Of Visits\n"; foreach ( sort { $IP{ $b } <=> $IP{ $a } } keys( %IP) ) {    print "$_\t\t", $IP{ $_ }, "\n";    ++$a;    exit 0 if $a>9;    }

usage and output:
# perl parse_apache.pl access_askwan_com_log
Client IPs              Num Of Visits
192.168.11.8            1794924
192.168.11.60           80887
192.168.11.9            34403
192.168.11.50           18026
192.168.11.196          8379
192.168.11.201          1353
192.168.11.155          1041
192.168.21.156          449
192.168.21.161          163
192.168.12.2            84

-------------end--------------