Perlfunc: mysql

Perlfunc: mysql_date2003-01-31

sub mysql_date {
    my ($inc_time,$epoch) = @_;

    $epoch ||= time();
    my @date = localtime($epoch);

    my $ret = sprintf("%04d-%02d-%02d", $date[5] + 1900, $date[4] + 1, $date[3]);
    if ($inc_time) { $ret .= sprintf(" %02d:%02d:%02d", $date[2], $date[1], $date[0]); }

    return $ret;
}

Leave A Reply - 1 Reply

Replies

smee 2006-04-10 02:31pm - No Email - Logged IP: 72.248.106.174

sub mysql_date() {
    my $epoch = shift() || time;
    my $time = shift();

    my @date = localtime($epoch);

    return sprintf (
        "%04d-%02d-%02d %02d:%02d:%02d"
        ,$date[5] + 1900
        ,$date[4] + 1
        ,$date[3]
        ,($time?$date[2]:0)
        ,($time?$date[1]:0)
        ,($time?$date[0]:0)
    );
}

All content licensed under the Creative Commons License