projects
/
tpope-extra.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
28e7f59
)
Syntax highlighting correction
author
Tim Pope
<code@tpope.net>
Thu, 11 Aug 2005 02:09:11 +0000
(
02:09
+0000)
committer
Tim Pope
<code@tpope.net>
Thu, 11 Aug 2005 02:09:11 +0000
(
02:09
+0000)
perl/sct6
patch
|
blob
|
history
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;