ClasslistGenerator

#!/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";