Difference between revisions of "ClasslistGenerator"
Jump to navigation
Jump to search
(Created page with "#!/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 student...") |
(No difference)
|
Revision as of 15:26, 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 tabs. Currently the script strips of the student ID, the
- firrst and last names, the section number and email address. 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 with lables 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, 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";