如何在 DBM 数据库中存储时间戳？

发布于 2024-07-17 05:54:29 字数 764 浏览 4 评论 0原文

我正在实现简单的文件共享服务。目前我使用基于文件的数据库（因为它适合我的需要）。

   # 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 模块的常见方法是什么？我怎样才能稍后拉出它们并将它们显示给用户（在我的情况下，转换回字符串）？

原文

I am implemening simple file-sharing service. Currently I use a file-based database (as it suits my needs).

   # 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( );
    }

As you can see I propose to store the upload timestamp as a string, since currently I only have to display it (suppose to use localtime() to get timestamp in a human readable format).
But this seems to me somewhat bad. What if later I'll want to show uploads from some period, etc.

What is the common way of storing timestamps in a DBM database without using third-party, CPAN modules? How can I pull them later and show them to the user (in my situation, convert back to string)?

分享到QQ

分享到微博