#!/usr/bin/perl # Wade Berrier # CS173 # Homework 08 # filename: classmail.pl #Check to use Bro. Twitchell's master copy if(-e "../students.txt") { $file="../students.txt"; } else { $file="students.txt"; } #Loads students.txt into an array open (FH, "$file"); foreach () { chomp $_; push(@students, $_); } close FH; #Sort the students @students = sort @students; #Open groups.txt open (FH, "groups.txt"); foreach () { if(/^\[(.*)\]$/) { $groups{$1} = ""; } #Loads the line if it's not a newline elsif($_ ne "\n") { chomp $_; push (@$1, $_); } } close FH; print< Class E-Mail
Class E-Mail

Compose | Edit Addresses | Edit Groups
From:
 To:
Student Recipients:
 Group Recipients:
Send to Entire Class?
Subject:
END