Difference between revisions of "ClasslistGenerator"
Jump to navigation
Jump to search
Line 1: | Line 1: | ||
− | < |
+ | <pre> |
#!/usr/bin/perl |
#!/usr/bin/perl |
||
Line 47: | Line 47: | ||
close TARGET or die "Can't close target file.\n"; |
close TARGET or die "Can't close target file.\n"; |
||
− | </ |
+ | </pre> |
[[Category:Scripts]] |
[[Category:Scripts]] |
Latest revision as of 15:38, 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";