20 lines
399 B
Perl
Executable File
20 lines
399 B
Perl
Executable File
#!/usr/bin/perl
|
|
use warnings;
|
|
use strict;
|
|
|
|
use GDBM_File ;
|
|
use POSIX qw(strftime);
|
|
|
|
my $filename = $ARGV[0] ? $ARGV[0] : $ENV{HOME} . "/.vacation.db";
|
|
print "$filename\n";
|
|
my %db;
|
|
tie %db, 'GDBM_File', $filename, &GDBM_WRCREAT, 0640;
|
|
|
|
while (my ($k, $v) = each(%db)) {
|
|
my $t = unpack("L", $v);
|
|
my $ts = strftime("%Y-%m-%d %H:%M:%S %z", localtime($t));
|
|
|
|
print "$ts\t$k\n", ;
|
|
}
|
|
untie %db;
|