perl프로그래밍 중에서 이 구문의 해석이.......

dbmopen( %CERT_DB, "$DB_FILE", 0600 ) || die "Error $!";
## $CERT_DB{0} = "";
dbmclose( %CERT_DB );
...........
dbmopen 은 시스템에서 제공하는 간단한 DB 를 perl 에서 사용하는 겁니다
key, value 형식으로(hash) 파일에 저장되죠

파일명은 file.dir , file.pag
시스템마다 틀릴수도 있지만 대체로 이런식입니다

%CERT_DB - 연결해서 사용할 해시명을 선언
$DB_FILE - 선언된 변수명대로 파일을 오픈합니다 (없을경우 자동생성)
0600 - chmod 설정과 같습니다 (undef - 파일이 없을때 자동생성하지 않습
니다)
$CERT_DB{0} = ""; - '0'의 키를 가지는 값을 초기화합니다

..말 그대로 hash 를 파일에 저장한다고 보면 됩니다

----------------------------------------------------------
dbmopen( %CERT_DB, "$DBM_FILE", undef ) || die "Can't access DB!";
while ( ($key, $value) = each %CERT_DB ) {
## print "$key = $value\n";

## each - 해시에서 키와 값 한쌍을 불러냅니다
## while - 바닥날때까지 계속 리턴

print "Found certificate serial=0x$key, dim=";
print length($value) ." bytes\n";

## key, value 출력

dbmclose(%CERT_DB)

## close syntax -_-;