-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathfinal.pl
More file actions
executable file
·20 lines (16 loc) · 771 Bytes
/
final.pl
File metadata and controls
executable file
·20 lines (16 loc) · 771 Bytes
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#!/usr/local/bin/perl
$file = 'rorig.tsv';
open(INFO, $file);
@lines = <INFO>;
close(INFO);
print @lines;
foreach $student (@lines)
{
chomp($student);
($email,$final)=split(/\|/,$student);
$email =~ s/\s*$//;
# print "When $name is in the ring, the crowd might $email when the $q1 is used.\n";
open(DAT,">temp.txt") || die("Cannot Open File");
print DAT "Hi,\n\nSince there were some queries about your scores in the final, we've decided to email everybody their scores. The finals are available for pick-up with Charlotte Yano (GHC 8118). In the final, your score is $final (upon 100).\n\nThanks and Happy Holidays!\nRavi\nVarun";
system("./smtp.py ravishan\@cs.cmu.edu varun\@cs.cmu.edu $email\@andrew.cmu.edu \"15-359 Final Update\" temp.txt");
}