http://qs1969.pair.com?node_id=361081

#!/usr/bin/perl use strict; use warnings; use Text::CSV; my $file1 = 'hr_sorted.csv'; my $file2 = 'log.csv'; open('F', $file1) || die $!; open('S', $file2) || die $!; my (@first, @second); my $csv = Text::CSV->new(); while (<F>) { chomp; $_ =~ s/\r//g; push(@first,$_); } close(F); while (<S>) { chomp; $_ =~ s/\r//g; push(@second,$_); } close(S); my %slcs = ( 'ML' => 'H.E.R.O', 'EC' => 'College Gateway', 'SJ' => 'So +cial Justice', 'GI' => 'Global T.E.A.M', 'LS' => 'R.E.A.Ch', 'CM' => 'Communication Media Technology'); my @id; my $c = 0; my @index; my @res; for (@first) { print $_,$/; $csv->parse($_); my @line = split(/\,/,$_); print Data::Dumper::Dump(@line); my $lname = $line[0]; $lname =~ s/\s+/ /g; $lname =~ s/\s+$//; $lname = lc($lname); my $fname = $line[1]; print "$fname\n"; $fname =~ s/\s+/ /g; $fname =~ s/\s+$//; $fname = lc($fname); print length($line[3]),$/; next;
Produces this error:
CONDE,YESENIA MARGARITA,7/4/1990,LS Use of uninitialized value in subs +titution (s///) at mlist.pl line 46. Use of uninitialized value in concatenation (.) or string at mlist.pl +line 50. Use of uninitialized value in substitution (s///) at mlist.pl line 52. Use of uninitialized value in length at mlist.pl line 54. ,12,A,Los Angeles Hi ,WG1A
On this line:

CONDE,YESENIA MARGARITA,7/4/1990,LS ,12,A,Los Angeles Hi ,WG1A