Please forgive me for my naivety but I'm having an issue that I'm sure one of the wise perl monks can quickly resolve: My script processes all of my input data as desired with the exception of minimum values for the input grades. What is the issue here and how can I ensure accurate output? Once again, sorry to bother by asking for help with something so seemingly simple. Your help is much appreciated. 


***students.txt***
122334:James,Lebron:
222223:Duncan,Tim: 
244668:Bryant,Kobe:
355779:Durant,Kevin:
******************

***grades.txt***
122334 1 98
222223 1 86
244668 1 89
355779 1 90
122334 2 96
222223 2 88
244668 2 92
355779 2 96
122334 3 97
222223 3 96
244668 3 95
355779 3 94
122334 4 97
222223 4 96
244668 4 95
355779 4 94
122334 5 97
222223 5 96
244668 5 95
355779 5 94
****************

#!/usr/local/bin/perl
    
    #Assign class roster file to variable.
    $students = 'students.txt';
    
    # Open class roster.
    open (NAMES, "<$students")
        || die "Couldn't open $students $!";

    # Create and populate arrays.
    while (<NAMES>) {
            ($id,$name) = split(':',$_);
            $name{$id} = $name;
            # Monitor name length for purpose of print formatting.
            if (length($name)>$longestname) {
                    $longestname = length($name);               
            }
            # Creat group size variable for later use with class avera
+ges.
            $groupsize = $.;
    }
    
    # Arrays are complete. Close file.
    close NAMES;
    
    # Assign grade spreadsheet to variable.
    $grades = 'grades.txt';
    
    # Open grade spreadsheet.
    open (GRADES,"<$grades")
        || die "Couldn't open $grades $!";

    # Create, populate and assign arrays.
    while (<GRADES>) {
        ($id,$exam,$grade) = split;
        $grade{$id,$exam} = $grade;
        # Monitor exam counter.
        if ($exam > $lastexam) {
            $lastexam = $exam;
        }
    }
    
    # Arrays are complete. Close file.
    close GRADES;

    # Create, format and print table headings.
    printf "%6s %-${longestname}s ",
            'ID#','Name';
    foreach $exam (1..$lastexam) {
            printf "%4d",$exam;
    }
    printf "%10s",'Total';
    printf "%8s",'Avg';
    printf "%8s",'Min';
    printf "%8s\n\n",'Max';

    # Define alphabetical sort subroutine.
    sub alpha { $name{$a} cmp $name{$b} }

    # Print formatted student data.
    foreach $id ( sort alpha keys(%name) ) {
        printf "%6d %-${longestname}s ",
               $id,$name{$id};
        # Set total point counter to zero.
        $total = 0;
        foreach $exam (1..$lastexam) {
            printf "%4s",$grade{$id,$exam};
            # Counter increment.
            $total += $grade{$id,$exam};
            $examtot{$exam} += $grade{$id,$exam};
            # Calculate minimum grades.
            if ($grade{$id,$exam} < $mingrade) {
                $mingrade = $grade{$id,$exam};
            } 
            # Calculate maximum grades.
            if ($grade{$id,$exam} > $maxgrade) {
                $maxgrade = $grade{$id,$exam};
            } 
        }
        
        # Print student's point total.
        printf "%10d",$total;  
        # Print student's average.
        printf "%8d",$total / $exam;
        # Print student's minimum exam grade.
        printf "%8d", $mingrade;
        # Print student's maximum exam grade.
        printf "%8d\n", $maxgrade;
    }
    
    # Print heading for class averages.
    printf "\n%6s %${longestname}s ",'',"Average: ";
     
    # Calculate and print class averages.
    foreach $exam (1..$lastexam) {
        printf "%4d",$examtot{$exam} / $groupsize;
    }
    
    # Exit script.
    exit(0);

[download]

In reply to Finding Minimum Value by jimmy88

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.