목차
1. 데이터베이스 작성
2. 해시저장 프로그램 작성
3. 이수구분 프로그램
4. 등급 나누기 프로그램
5. 성적 출력 프로그램
2. 해시저장 프로그램 작성
3. 이수구분 프로그램
4. 등급 나누기 프로그램
5. 성적 출력 프로그램
본문내용
dbmopen(%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}
------------------------------------------------------------------------------
.
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}
------------------------------------------------------------------------------
.
소개글