Difference between revisions of "ClasslistGenerator"
Jump to navigation
Jump to search
Line 1: | Line 1: | ||
+ | #!/usr/bin/perl |
||
+ | |||
+ | #Classlist generator script |
||
+ | # This script takes in a CSV file (such as those generated by Banner) |
||
+ | # and creates a lst file which can be used to import students into a class. |
||
+ | #Currently the script assumes that the input file is a CSV file with the |
||
+ | #following fields |
||
+ | ## STUDENT_ID, LAST_NAME, FIRST_NAME, MI, STREET1, STREET2, CITY, STATE, ZIP, textbox15, EMAIL, PHONE_1, GENDER, ETHNICITY, PHONE, textbox23, textbox32, HONORS, TERM, SUBJECT, COURSE_NUM, SEC, DEPT, REG_STAT, TITLE, INSTRUCTOR |
||
− | #!/usr/bin/perl |
||
+ | #The first line of the CSV file should contain lables and data entries are |
||
+ | #only seperated by commas. Currently the script strips off the student ID, the |
||
+ | #first and last names, the section number and email address and uses them to |
||
+ | # build the lst file. The username for the student is the email address username. |
||
− | #Classlist generator script |
||
+ | #Those who are familiar with perl scripts should be able to modify this setup |
||
− | # This script takes in a CSV file (such as those generated by Banner) |
||
+ | #to deal with input files that have a different format. |
||
− | # and creates a lst file which can be used to import students into a class. |
||
+ | |||
+ | if (! $#ARGV eq 1) { |
||
+ | print "Usage: ./classistgenerator <banner csv> <target classlist>\n"; |
||
+ | exit; |
||
+ | } |
||
− | #Currently the script assumes that the input file is a CSV file with the |
||
+ | #Open source and target files as provided via command line |
||
− | #following fields |
||
+ | open (SOURCE, "<", $ARGV[0]) or die "Can't open source file.\n"; |
||
− | ## STUDENT_ID, LAST_NAME, FIRST_NAME, MI, STREET1, STREET2, CITY, STATE, ZIP, textbox15, EMAIL, PHONE_1, GENDER, ETHNICITY, PHONE, textbox23, textbox32, HONORS, TERM, SUBJECT, COURSE_NUM, SEC, DEPT, REG_STAT, TITLE, INSTRUCTOR |
||
− | #The first line of the CSV file should contain lables and data entries are |
||
+ | open (TARGET, ">", $ARGV[1]) or die "Can't open target file.\n"; |
||
− | #only seperated by commas. Currently the script strips off the student ID, the |
||
+ | |||
− | #first and last names, the section number and email address and uses them to |
||
+ | #Burn first line (which has labels) and then go through the input file |
||
− | # build the lst file. The username for the student is the email address username. |
||
+ | #line by line |
||
+ | <SOURCE>; |
||
− | #Those who are familiar with perl scripts should be able to modify this setup |
||
+ | while ($line = <SOURCE>) { |
||
− | #to deal with input files that have a different format. |
||
+ | |||
+ | #split line up on commas |
||
+ | @data = split(/,/,$line); |
||
− | if (! $#ARGV eq 1) { |
||
+ | #pull off username from email (assumes email is the 10th entry) |
||
− | print "Usage: ./classistgenerator <banner csv> <target classlist>\n"; |
||
+ | $username = $data[10]; |
||
− | exit; |
||
+ | $username =~ s/@.*//; |
||
− | } |
||
− | |||
− | #Open source and target files as provided via command line |
||
− | open (SOURCE, "<", $ARGV[0]) or die "Can't open source file.\n"; |
||
− | |||
− | open (TARGET, ">", $ARGV[1]) or die "Can't open target file.\n"; |
||
− | |||
− | #Burn first line (which has labels) and then go through the input file |
||
− | #line by line |
||
− | <SOURCE>; |
||
− | |||
− | while ($line = <SOURCE>) { |
||
− | |||
− | #split line up on commas |
||
− | @data = split(/,/,$line); |
||
− | |||
− | #pull off username from email (assumes email is the 10th entry) |
||
− | $username = $data[10]; |
||
− | $username =~ s/@.*//; |
||
− | #print new csv |
+ | #print new csv |
− | #follows lst format. assumes that student id is first entry, last name |
+ | # follows lst format. assumes that student id is first entry of csv, last name |
− | # is second entry etc.... |
+ | # is second entry etc.... |
− | print TARGET "$data[0],$data[1],$data[2],c,,$data[21],,$data[10],$username\n"; |
+ | print TARGET "$data[0],$data[1],$data[2],c,,$data[21],,$data[10],$username\n"; |
− | } |
+ | } |
− | + | ||
− | close TARGET or die "Can't close target file.\n"; |
+ | close TARGET or die "Can't close target file.\n"; |
− | + | ||
− | |||
[[Category:Scripts]] |
[[Category:Scripts]] |
Revision as of 15:33, 3 January 2013
#!/usr/bin/perl #Classlist generator script # This script takes in a CSV file (such as those generated by Banner) # and creates a lst file which can be used to import students into a class.
#Currently the script assumes that the input file is a CSV file with the #following fields ## STUDENT_ID, LAST_NAME, FIRST_NAME, MI, STREET1, STREET2, CITY, STATE, ZIP, textbox15, EMAIL, PHONE_1, GENDER, ETHNICITY, PHONE, textbox23, textbox32, HONORS, TERM, SUBJECT, COURSE_NUM, SEC, DEPT, REG_STAT, TITLE, INSTRUCTOR
#The first line of the CSV file should contain lables and data entries are #only seperated by commas. Currently the script strips off the student ID, the #first and last names, the section number and email address and uses them to # build the lst file. The username for the student is the email address username.
#Those who are familiar with perl scripts should be able to modify this setup #to deal with input files that have a different format. if (! $#ARGV eq 1) { print "Usage: ./classistgenerator <banner csv> <target classlist>\n"; exit; }
#Open source and target files as provided via command line open (SOURCE, "<", $ARGV[0]) or die "Can't open source file.\n";
open (TARGET, ">", $ARGV[1]) or die "Can't open target file.\n"; #Burn first line (which has labels) and then go through the input file #line by line <SOURCE>;
while ($line = <SOURCE>) { #split line up on commas @data = split(/,/,$line);
#pull off username from email (assumes email is the 10th entry) $username = $data[10]; $username =~ s/@.*//; #print new csv # follows lst format. assumes that student id is first entry of csv, last name # is second entry etc.... print TARGET "$data[0],$data[1],$data[2],c,,$data[21],,$data[10],$username\n"; } close TARGET or die "Can't close target file.\n";