Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
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 the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (5)
As of 2014-07-12 00:37 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    When choosing user names for websites, I prefer to use:








    Results (238 votes), past polls