我没有使用过 Perl 或 BerkelyDB。我有一个巨大的 BerleleyDB,里面有电子邮件列表和 unix 时间戳。我需要帮助删除时间戳较旧(超过 100 天)的电子邮件。
我有这一段 Perl 代码
#!/usr/local/perls/perl-5.26.1/bin/perl
use BerkeleyDB;
my $filename = '/usr/local/assp/whitelist.bdb';
my $dbh = new BerkeleyDB::Hash(
-Filename => $filename)
or die "Error opening $filename : $! $BerkeleyDB::Error\n";
my $cursor = $dbh->db_cursor() ;
while ($cursor->c_get($k, $v, DB_NEXT) == 0) {
print "Key: " . $k . ", value: " . $v . "\n";
}
### Close the Berkeley DB
untie $filename;
exit;
显示具有键 ($k) 和值 ($v) 的所有行
结果是这样的
Key: [email protected], value: 1578560300
Key: [email protected],[email protected], value: 1578643050
Key: [email protected], value: 1578643050
任何人都可以帮助我添加 Perl 代码以在尽管执行上述操作后,所有关键行的 unix 时间戳值是否都超过 100 天?
答案1
只需使用c_del
据记载, IE
my $long_ago = time() - 100*24*60*60; # 100 days ago
...
while ($cursor->c_get($k, $v, DB_NEXT) == 0) {
if ($v<$long_ago) {
$cursor->c_del();
}
}