I'm working on a script where I'm given a CSV file with info (first and last names, ssn, address, etc) and I first need to separate everything, which the code does, but then I need to make an output file with the first letter of the first name, last 3 letters of last name, and more... My problem is the output file is blank after I run the script to see if anything is getting written in. See code below
#! /usr/bin/perl # CSC 310 Project # 1 print "Enter filename: "; chomp($fileName = <STDIN>); open (FILE, '<', $fileName) || die ("Could not open $fileName\n"); while ($line = <FILE>){ print "\n"; ($lastName,$firstName,$ssn,$address,$city,$state,$zip,$phone) = sp +lit ',', $line; print "$lastName, $firstName\n"."$ssn\n"."$address\n", "$city $sta +te $zip\n"; open (PSWD, '>>', 'passwd.txt'); print PSWD "$firstName[1]\n"; }
Any help or reference to help is appreciated!
In reply to [SOLVED] Output to another file help by jaffinito34
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |