00	#!/usr/bin/perl
01
02	# parse the user list dump from nlist into 1 tsv file
03
04	open (NLIST, $ARGV[0]) or die "Can't open nlist results\n $!";
05	@nlist = <NLIST>;
06	close NLIST;
07
08	for $line (@nlist) {
09	   # do not parse for the exceptions, all else do the following:
10	   if ($line !~ /^[Object|Current|A total]/) {
11	      # user | given | last name?
12	      if ($line =~ /^User\: (\w+)\n/) {
13	         $username = lc($1);
14	         push @user_list, \{ "username" => $username, "lastname" => "", "givenname" => ""};
15	      } elsif ($line =~ /^\tLast Name: (\w+)\n/) {
16	         $lastname = lc($1);
17	         $num_users = scalar @user_list;
18	         $$user_list[$num_users -1]->{lastname} = $lastname;
19	      } elsif ($line =~ /^\tGiven Name: (.)+\n/) {
20	         $givenname = $1;
21	         $num_users = scalar @user_list;
22	         $$user_list[$num_users -1]->{givenname} = $givenname; 
23	     }
24	   }
25	}
26	
27	for $user (@user_list) {
28	   print "User: $$user->{username}\n";
29	   print "\tLast: $$user->{lastname}\n";
30	   print "\tGiven: $$user->{givenname}\n";
31	}