#! /usr/local/bin/perl

# 6.837
# Created by Justin Legakis (legakis@graphics.lcs.mit.edu) for Fall 1996
# Modified by Jon Levene (jslevene@graphics.lcs.mit.edu) for Fall 1997


# Create list of email addresses of all students

$datapath="../data";


opendir(THISDIR, $datapath);
@allfiles = grep(!/^\.\.?|(.*)\.html.?|(.*)~/, readdir(THISDIR));
closedir(THISDIR);


foreach $file (@allfiles) {

  ($uid,$domain) = split('@', $file);

  print "$uid\n";
}

