I think I can safely say that we can all understand that you're putting values into a hash. The question here is: Why is your hash structured the way that it is? People are asking this question because the hash appears to be structured very awkwardly. Don't dismiss these questions -- the people asking them are very skilled Perl programmers.

buckaduck

Ok sorry its becaous: each entry is a student record on a record if the student ID, Name , then each student has 12 subjects and for each subject 4 entries for attendance, quiz, assigment & recitation.



$TT{ID}[Subject][Entries]
[download]


br> Pleas Advice on proper format!

Sigh, at any rate, here is something for you to mess with:

use strict;
use Data::Dumper;
use CGI qw(header params);

# this prints the content-type for you
# you can use params() to get form values without
# having to roll your own code
print header();

my %INPUT = (
   quizes      => 2,
   assign      => 2,
   recit       => 2,
   ndays       => 1,
   AT32000011  => 1,
   QZ132000011 => 1,
   RI132000011 => 1,
   AS132000011 => 1,
   QZ232000011 => 2,
   RI232000011 => 2,
   AS232000011 => 2,
   AT32000012  => 1,
   QZ132000012 => 12,
   RI132000012 => 12,
   AS132000012 => 12,
   QZ232000012 => 22,
   RI232000012 => 22,
   AS232000012 => 22,
);

my %STUDQT;
foreach (32000011..32000012) {
   push @{$STUDQT{$_}},  qw(fname mname lname Sex);
}

my @sorted = sort { 
   "$STUDQT{$a}[3] $STUDQT{$a}[2] $STUDQT{$a}[0]" 
            cmp 
   "$STUDQT{$b}[3] $STUDQT{$b}[2] $STUDQT{$b}[0]"
} keys %STUDQT;

#Get The Inputs From User
# remember, CGI can do this for you - see params()
foreach my $l (@sorted) {
   my $STUD_1 = $STUDQT{$l}[1];

   for my $i (1..$INPUT{'assign'} + 1) {
      if ($INPUT{"AS$i$l"}) {
         $STUD_1  = "$STUD_1$INPUT{\"AS$i$l\"}";
         $STUD_1 .= "~" unless $INPUT{'assign'} == $i;
      }
   }
   $STUDQT{$l}[1] = "$STUD_1"."^";
   print "key('32000011') is = $STUDQT{'32000011'}[1] <br>\n";
   print "key{'32000012'} is = $STUDQT{'32000012'}[1] <br>\n";
}
[download]

jeffa

Sorry! ok this is why my hash looks like that, i have a student record, each student has a student ID which is my Key, now per student i have 12 subjects & per subject 5 entries attendance, quiz, ricitation, assignment...

Ex.

$TT{Student_ID}[subject][entries]
[download]



please advise on proper format...

Ok - what you have _should_ work, but there is a better solution. You should treat entries just like you treat subject - when you surround the entry index with single quotes, i assumed you really wanted a hash.

Sounds like you need to consider using a Database for this. You would have a table for students, their ID will be the primary key. You will need another table that lists the available subjects, with some unique ID for each one of those. You will need a cross-reference table to join Students with there subjects. It will consist of two fields, one for the Student ID and one for the Subject ID.

From there you will need two similar tables for the entries that links them to the proper subject.

Not using a database on a complex problem like this tends to make your code 700+ lines; using a database on a problem like this tends to make your code MUCH smaller:

select students.lname, students.fname, subjects.name, entries.name
from students
left join subjects on students.id = subjects.student_id
left join entries  on subjects.id = entries.subject_id
where students.id = ?
order by students.Sex, students.lname, students.fname
[download]

A wham! You now have all subjects and entries for student '?' - and they are ordered by the database, not Perl.

Databases by themselves are beyond the scope of this site, but be sure and read up on DBI.

jeffa