다시한번 부탁 드려요 이 소스좀 분석해 주세요 (perl)

김혜림 wrote..
perl로 작성된 소스 입니다
제가 해석한 부분이 맞는지 봐주시고 모르는 부분좀 해석좀 해주세요
opendir ( DIR , "$CERTS_DIR" );
###DIR=$CERTS_DIR이렇게 해석하면 되나요?

opendir 은 디렉토리 핸들을 여는 함수 입니다.
그러니까 DIR 은 디렉토리 핸들이라고 할 수 있죠.
나중에 readdir 로 읽어들일 수 있습니다.

@certs = grep(/pem/, readdir( DIR ) );
###DIR디렉토리를 읽어 pem파일이 있는지 확인하고 배열변수certs에 넣 음

pem이 있는 줄을 @certs 에 넣는것입니다....

closedir( DIR );
#닫음
foreach $file ( @certs ) {
#certs의 모든 요소를 file에 활당(대입)하고 다 활당하면 닫음
print "Adding certificate ";

각줄마다 $file 로 대입하면서..배열끝까지 루프를 도는겁니다..

$info = `$SSL_DIR/bin/openssl x509 -text -noout <$CERTS_DIR/ $file`;
###file안에 있는 파일을 ` `안에 있는 시스템 명령어를 실행
_______________________아래 부터는 이해가 가지 않아요____________
next if ( $info =~ /error/i );
##(질문)"=~ /error/i"이것이 폴더를 의미 하나요?

$info 에 error 가 있다면... 처음 for 문으로 되돌아 갑니다.

( $serial ) =
( $info =~ /Serial Number[^x]*.([^\)]+)/i );
##(질문)"=~ /Serial Number[^x]*.([^\)]+)/i"이건 어떻게 해석을?

해당 reg-expression을 찾아서 ([^\)]+)에 해당하는 데이타를 $serial 에
대입하라는겁니다.

( $notBefore ) =
( $info =~ /Not Before ([^\n]+)/i );

( $notAfter ) =
( $info =~ /Not after ([^\n]+)/i );

이것도 마찬가지죠...^^

if ( length( $serial ) < 2 ) {
$serial = "0" . uc($serial);
##(질문)"$serial = "0" . uc($serial);"이건 또 어떻게?
}

시리얼이 2자리보다 작다면... 앞에 0을 붙이라는 얘기입니다.uc 는 잘 모
르겠네요..~~~

print " ( $serial )\n";
print " Not Before $notBefore\n";
print " Not After $notAfter\n";

$fileName = "$CERTS_DIR/$file";
$cert = "";
open( FD, "$fileName" ) or die "Can't access $fileName\n\n";
while( $tmp = <FD> ) {
next if ( ($cert eq "") and ($tmp !~ /BEGIN CERTIFICATE/ ));
$cert .= $tmp;
}
close( FD );

이건 아시겠죠?...

perl 기본 문법을 공부하심이 좋을것같네요..

공부하면..한결 수월해질것입니다...