펄 프로그래밍 학사프로그램 (성적처리)

목차

1. 데이터베이스 작성
2. 해시저장 프로그램 작성
3. 이수구분 프로그램
4. 등급 나누기 프로그램
5. 성적 출력 프로그램

본문내용

mopen(%BIO,"newbio",0644);
dbmopen(%YOON,"newyoon",0644);
dbmopen(%COMPUTER,"newcomputer",0644);
dbmopen(%CL, "newcl",0644);
dbmopen(%AVG11,"avg",0644);
#등급과 평점해시를 불러옴
dbmopen(%GRADE,"/home/sophomore/work/grade",0644);
dbmopen(%NAME,"/home/sophomore/work/name",0644);
print "학번을 입력하시오\n";
chomp($ID = );
if ($number = $ID){
#printf "$number $NAME{$ID} $GRADE{$ENG{$ID}} $GRADE{$MAT{$ID}} $GRADE{$PHY{$ID}} $GRADE{$BIO{$ID}} $GRADE{$YOON{$ID}} $GRADE{$COMPUTER{$ID}} $GRADE{$CL{$ID}} "."%3.2f\n", $AVG{$ID};
print "==============================================================================\n";
print "| 1학년 1학기 성적표 |\n";
print "==============================================================================\n";
print "| 학 번 이 름 영어 수학 물리학 생물학 윤리학 컴퓨터 C언어 평점 |\n";
print "==============================================================================\n";
$~ = "ADD";
write;
}
format ADD =
|@<<<<<<<<<< @<<<<< @>> @>> @>> @>> @>> @>> @>> @>>> |
$number,$NAME{$ID},$GRADE{$ENG{$ID}},$GRADE{$MAT{$ID}},$GRADE{$PHY{$ID}},$GRADE{$BIO{$ID}},$GRADE{$YOON{$ID}}, $GRADE{$COMPUTER{$ID}}, $GRADE{$CL{$ID}}, $AVG11{$ID}
------------------------------------------------------------------------------
.

키워드

펄,   프로그램,   학사,   성적,   성적처리