I was trying to figure out how to print it to the output file and was hoping that would of made it easy but I was wrong. I modified it to this now:
use warnings;
use strict;
my $infile="clients.txt";
open my $in, "<", $infile or die $!;
open FH, ">" , "clients.csv" or die $!;
print FH join ("," => qw(Name Phone E-mail)),$/;
while (<$in>) {
chomp;
print FH $_, "\t";
print FH $/ if $. % 3 == 0; # note here
}
This gets the information into the csv file however I still need to modify the formatting, probably with a printf? What currently happens with this script is it creates the three columns "Name, Phone, Email" but the Name field is just the first name of the people while the Phone field gets EVERYTHING else. Would a simple printf or something solve this issue?
