Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Necos's scratchpad

by Necos (Friar)
on Jun 04, 2004 at 18:06 UTC ( #361081=scratchpad: print w/replies, xml ) Need Help??

#!/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
Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (1)
As of 2017-04-28 03:42 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I'm a fool:











    Results (517 votes). Check out past polls.