chiark - git - mdw - misc/blob - cdb-assign

   1 #! /usr/bin/perl
   2
   3 use CDB_File;
   4
   5 @ARGV >= 1 or die "usage: $0 CDB [INPUT ...]\n";
   6 $f = shift;
   7 $c = CDB_File->new($f, "$f.new") or die "CDB_File->new: $!\n";
   8 while (<>) {
   9   chomp;
  10   next if m'^\s*(\#|$)';
  11   m'^\s*([-\w]+)\s*=\s*(.*\S|)\s*$' or die "bad assignment `$_'\n";
  12   $c->insert($1, $2);
  13 }
  14 $c->finish() or die "CDB_File->finish: $!\n";
  15 exit 0;