debian/perl-framework/t/htdocs/modules/rewrite/db.pl.PL


1
2
3
4
5
6
7
8
9
10

($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)