『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-----------

oracle数据库中有一字表字段类型为BLOB，存储的pdf，doc文档等的二进制文件数据，现在要拿出来这些文件来

#!/usr/bin/perl use DBI; $dbh = DBI->connect("dbi:Oracle:ASKWAN","askwan","askwan") or die("DATABASE connect error!\n"); $dbh->{LongReadLen} = 50*1024*1024; $dbh->{LongTruncOk}=1; $count=0; $sql = "select FJWJMC,bgfj from BGJBXXB"; $sth = $dbh->prepare($sql); $sth->execute() or die(" EXCUTE SQL ERROR! \n"); while(@rows = $sth->fetchrow) {   $count++;   if(@rows[0]=~/\.pdf/i){   print "$count\n";   open(FD,">@rows[0].$count.pdf");   binmode(FD);   print FD @rows[1];   close(FD);   print "@rows[0] export compelte!\n"   }      elsif(@rows[0]=~/\.doc/i){   print "$count\n";   open(FD,">@rows[0].$count.doc");   binmode(FD);   print FD @rows[1];   close(FD);   print "@rows[0] export compelte!\n"   }   elsif(@rows[0]=~/\.xls/i){   print "$count\n";   open(FD,">@rows[0].$count.xls");   binmode(FD);   print FD @rows[1];   close(FD);   print "@rows[0] export compelte!\n"   }   else{   print "$count\n";   open(FD,">@rows[0].$count.ppt");   binmode(FD);   print FD @rows[1];   close(FD);   print "@rows[0] export compelte!\n"   } print "\n"; } $sth->finish; $dbh->disconnect(); exit 0;


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