~mdw
/
misc
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
Add shadowfix to the collection.
[misc]
/
cdb-list
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*(.*\S|)\s*$'
;
12
$c
->
insert
(
$1
,
""
);
13
}
14
$c
->
finish
()
or die
"CDB_File->finish: $!
\n
"
;
15
exit
0
;