[misc] / cdb-assign

#! /usr/bin/perl

use CDB_File;

@ARGV >= 1 or die "usage: $0 CDB [INPUT ...]\n";
$f = shift;
$c = CDB_File->new($f, "$f.new") or die "CDB_File->new: $!\n";
while (<>) {
  chomp;
  next if m'^\s*(\#|$)';
  m'^\s*([-\w]+)\s*=\s*(.*\S|)\s*$' or die "bad assignment `$_'\n";
  $c->insert($1, $2);
}
$c->finish() or die "CDB_File->finish: $!\n";
exit 0;
Commit	Line	Data
8d769cc9	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	}
dc89fb5b	14	$c->finish() or die "CDB_File->finish: $!\n";
8d769cc9	15	exit 0;