Difference between revisions of "ClasslistGenerator"

From WeBWorK_wiki
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";