~mdw
/
misc
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
cdb-map: New program to construct CDB files.
[misc]
/
cdb-map
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
m
'^([^:]*):(.*)$'
or die
"bad assignment `
$_
'
\n
"
;
11
$c
->
insert
(
$1
,
$2
);
12
}
13
$c
->
finish
()
or die
"CDB_File->finish: $!
\n
"
;
14
exit
0
;