10 lines
200 B
Perl
10 lines
200 B
Perl
|
|
($txtmap, $dbmmap) = @ARGV;
|
|
open(TXT, "<$txtmap");
|
|
dbmopen(%DB, $dbmmap, 0644);
|
|
while (<TXT>) {
|
|
next if (m|^s*#.*| or m|^s*$|);
|
|
$DB{$1} = $2 if (m|^\s*(\S+)\s+(\S+)$|);
|
|
}
|
|
dbmclose(%DB);
|
|
close(TXT)
|