例：「"ei" → "英語" の関連づけ」

$ei = "英語" ;

  

print "教科名：" ;

$kyoka = <STDIN> ;

chomp $kyoka ;

  

print "$$kyoka が入力されました。" ;

例：「教科名と得点の表示」

  

$seito = [85, 100, 90, 65, 70] ;

$ei = "00" ;

$00 = "英語" ;

  

print "教科名：" ;

$kyoka = <STDIN> ;

chomp $kyoka ;

  

print "$$$kyoka $seito->[$$kyoka]  点" ;

  

open (F, "１年１組１学期中間.txt") ;

for (<F>)

    {

     chomp ;

     ($ban, @ten) = split /,/ ;

     $chu_1->{$ban} = [@ten]

    }

$score = {"１学期中間" => $chu_1} ;

  

print <<EOF;

1101 英語 $score->{"１学期中間"}->{1101}->[0] 点

1101 数学 $score->{"１学期中間"}->{1101}->[1] 点

1101 国語 $score->{"１学期中間"}->{1101}->[2] 点

EOF

# 名前データの読み込み

  

open (F, "１年１組名前.txt") ;

for (<F>)

    {

     chomp ;

     $name{$`} = $' if /,/  

    }

  

print <<EOF;

1101 → $name{1101}

1102 → $name{1102}

1103 → $name{1103}

EOF

  

# seiseki-2.pl

# 成績管理プログラム(2)

  

# 単語の表示

  print <<EOF;

\n (chu-１学期中間, ki-１学期期末)

\n (ei-英語, su-数学, koku-国語, ri-理科, sha-社会)

EOF

  

# シンボリック・リファレンス

  ($ei, $su, $koku, $ri, $sha) = qw (00 01 02 03 04) ;

  ($00, $01, $02, $03, $04) = qw (英語 数学 国語 理科 社会) ;

  ($chu, $ki) = qw (１学期中間 １学期期末) ;

  

# 名前のハッシュ

  open (F, "１年１組名前.txt") ;

  for (<F>)

     {

      chomp ;

      $name{$`} = $' if /,/  

     }

  open (F, "１年２組名前.txt") ;

  for (<F>)

     {

      chomp ;

      $name{$`} = $' if /,/  

     }

  

# 得点のハッシュ

  open (F, "１年１組１学期中間.txt") ;

  for (<F>)

     {

      chomp ;

      ($ban, @ten) = split /,/ ;

      $chu_1->{$ban} = [@ten]

     }

  open (F, "１年２組１学期中間.txt") ;

  for (<F>)

     {

      chomp ;

      ($ban, @ten) = split /,/ ;

      $chu_1->{$ban} = [@ten]

     }

  open (F, "１年１組１学期期末.txt") ;

  for (<F>)

     {

      chomp ;

      ($ban, @ten) = split /,/ ;

      $ki_1->{$ban} = [@ten]

     }

  open (F, "１年２組１学期期末.txt") ;

  for (<F>)

     {

      chomp ;

      ($ban, @ten) = split /,/ ;

      $ki_1->{$ban} = [@ten]

     }

  

$score = {"１学期中間" => $chu_1, "１学期期末" => $ki_1} ;

# 得点の表示

  while (1)

    {

     print "\n 表示させる得点 (例：1101-chu-ei)：" ;

     $ten = <STDIN> ;

     chomp $ten ;

     ($num, $gakki, $kyoka) = split /-/, $ten ;

     $test = $score->{$$gakki}->{$num}->[$$kyoka] ;

     print "\n $num $name{$num}：$$gakki $$$kyoka $test 点 \n" ;

  

# 継続判断

     print "\n 続けますか (１.はい  他.いいえ)：" ;

     $nx = <STDIN> ;

     chomp $nx ;

     unless ($nx eq "1") {last}

    }