Select Code to Download

# Each hour in a week (with days from 7am to 7pm) gets its own
# unique bit in an 8-byte string.
...
    while (--$offset >= 0) { return 1 if vec($combined,$offset,1); }
    return 0;
}

prof_read_file("professors.dat");

...
    }
    print "Office Hours: ",unpack("%b*",$profs{$key}->{Office_Hours}),
+"\tSchedule: (",unpack("b*",$profs{$key}->{Office_Hours}),")\n";
}

id                   : 00001
name                 : John Smith
...
name                 : Dick Ass
Office Hours         : Wed 8-5, Thu 10-3
Courses              : YW600, UZ400

id: AB200
Description: A Beautiful Class
...
id: UZ400
Description: You Suck 6 Zeroes
Class Hours: Tue 11-12, Wed 3-6, Thu 3-7