Postgres
５分で作った。動いた。わーい。 #!/usr/bin/perl use strict; use FindBin; use File::Spec; use Data::Dumper; use DateTime; use Getopt::Long; my $dir = '/tmp'; my $keep_count = 5; my $database = 'foo'; my $pg_user = 'foo'; my $pg_password = ''…
５分で作った。動いた。わーい。 #!/usr/bin/perl use strict; use FindBin; use File::Spec; use Data::Dumper; use DateTime; use Getopt::Long; my $dir = '/tmp'; my $keep_count = 5; my $database = 'foo'; my $pg_user = 'foo'; my $pg_password = ''…
