DZone Snippets is a public source code repository. Easily build up your personal collection of code snippets, categorize them with tags / keywords, and share them with the world

Snippets has posted 5883 posts at DZone. View Full User Profile

Insert Time Into Datetime Field (perl)

01.10.2008
| 658 views |
  • submit to reddit
        insert the current time into a
datetime field in a table while using perl DBI/DBD::mysql
from http://osdir.com/ml/db.mysql.perl/2006-09/msg00001.html
#!/usr/bin/perl -w

use strict;
use DBI;

my $dbh = DBI->connect( "DBI:mysql:test", "root", "");
my $sth = $dbh->prepare( "INSERT INTO a VALUES ( NOW() )" );
$sth->execute();
$sth->finish();

$sth = $dbh->prepare( "SELECT a FROM a" );
$sth->execute();
my ( $time ) = $sth->fetchrow_array();
$sth->finish();

print "The time was [$time]\n";

$dbh->disconnect();

__END__

CREATE TABLE a (
 a datetime NOT NULL default '0000-00-00 00:00:00'
) TYPE=MyISAM;