projects
/
tpope-extra.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Syntax highlighting correction
[tpope-extra.git]
/
perl
/
sct6
diff --git
a/perl/sct6
b/perl/sct6
index abfede15d0187e7552f5c51600b257b721113678..e6c66602149a2e1c1dbe0f524d0ac43d3655a781 100755
(executable)
--- a/
perl/sct6
+++ b/
perl/sct6
@@
-299,7
+299,7
@@
sub get_faculty_email {
open INS, $ENV{'HOME'} . "/public_html/faculty.csv";
while($_ = <INS>) {
chomp;
open INS, $ENV{'HOME'} . "/public_html/faculty.csv";
while($_ = <INS>) {
chomp;
- m/"([^"]*)",([^,]*),([^,]*)/;
+ m/"([^"]*)",([^,]*),([^,]*)/;
# "
($name, $email, $school) = ($1, $2, $3);
$name =~ s/^([^,]*), ([^,]*)(.*)$/$2 $1$3/;
$name =~ s/ [A-Z]\.//g;
($name, $email, $school) = ($1, $2, $3);
$name =~ s/^([^,]*), ([^,]*)(.*)$/$2 $1$3/;
$name =~ s/ [A-Z]\.//g;