Я реализую простой файлообменный сервис. В настоящее время я использую базу данных на основе файлов (так как это соответствует моим потребностям).
# somewhere in my cgi script
sub first_run
{
my $dbh = DBI->connect('dbi:DBM:');
$dbh = DBI->connect("dbi:DBM:", "", "",{ AutoCommit => 1, RaiseError => 1, f_dir=>$DATABASE_DIR} );
unless ($dbh)
{
print "<br>Cannot connect: $DBI::errstr";
return undef;
}
$dbh->do("CREATE TABLE uploads( user_name TEXT,
file_name TEXT,
upload_date TEXT ) ");
$dbh->disconnect( );
}
Как видите, я предлагаю хранить временную метку загрузки в виде строки, поскольку в настоящее время мне нужно только отобразить ее (предположим, использовать localtime() для получения временной метки в удобочитаемом формате). Но мне это кажется несколько нехорошим. Что, если позже я захочу показать загрузки за какой-то период и т. д.
Каков общий способ хранения меток времени в базе данных DBM без использования сторонних модулей CPAN? Как я могу вытащить их позже и показать пользователю (в моей ситуации преобразовать обратно в строку)?