Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"

Necos's scratchpad

by Necos (Friar)
on Jun 04, 2004 at 18:06 UTC ( [id://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 line 46. Use of uninitialized value in concatenation (.) or string at +line 50. Use of uninitialized value in substitution (s///) at line 52. Use of uninitialized value in length at 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?

What's my password?
Create A New User
Domain Nodelet?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others examining the Monastery: (5)
As of 2024-07-18 15:42 GMT
Find Nodes?
    Voting Booth?

    No recent polls found

    erzuuli‥ 🛈The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.