http://qs1969.pair.com?node_id=318677

Item Description: Bridges the gap between Perl and MySQL date-time types

Review Synopsis:

Time::Piece::MySQL is a very useful module for MySQL users. It is simply an extension to Time::Piece that provides a handful of methods for converting back and forth between Time::Piece objects and the MySQL date/time types: date, time, datetime, and timestamp. (The year type is available from Time::Piece, so it doesn't need to be here.)

As an example, say i had a table of events that contained an id and a datetime field:

+---------+------------------+
| Field   | Type             |
+---------+------------------+
| id      | int(10) unsigned |
| date    | datetime         |
+---------+------------------+
and i wanted to add 50 days to to each date. The following snippet would do just that:
use strict; use warnings; use DBI; use Time::Seconds; use Time::Piece::MySQL; my $dbh = DBI->connect( ... ); my $sth = $dbh->prepare('update events set date = ? where id = ?'); my $dates = $dbh->selectall_arrayref( 'select id,date from events', {Slice => {}} ); for (@$dates) { my $date = localtime->from_mysql_datetime( $_->{date} ); $date += ONE_DAY * 50; $sth->execute( $date->mysql_datetime, $_->{id} ); }
A very trivial example, but i think it demonstrates how it can make someone's Perl/MySQL script easier to work with.

Replies are listed 'Best First'.
Re: Time::Piece::MySQL
by CountZero (Bishop) on Jan 04, 2004 at 20:50 UTC
    I'm quite sure that this module will have a lot of good uses, but the example you give is --IMHO-- not one of such, as this problem can be solved from within MySQL itself:

    UPDATE events SET date = DATE_ADD(date, INTERVAL 50 DAY) WHERE id = ? will add 50 days to the date in the date-field.

    CountZero

    "If you have four groups working on a compiler, you'll get a 4-pass compiler." - Conway's Law