Help for this page

Select Code to Download


  1. or download this
    my @fieldnames = qw(Lname Fname ssn address city state zip phone1 phon
+e2);
my %row;
@row{@fieldnames} = split(/,/, $line); # yeah, I just told you to use 
+Text::CSV, but I'm keeping my suggestions independent.
  2. or download this
    my $user = substr($Fname, 0, 1) . substr($Lname, 0, 3) . substr($ssn, 
+-4);