I found a site suggesting this type of command formating ... I tried it within a single line script with strict and warnings. It generated this error ...

One way to get an idea of what a command line "one-liner" would have to look like as a script is to deparse the command line source together with the interpreter switches:

c:\@Work\Perl>perl -MO=Deparse -n -e
"chomp;  printf qq{%sUF,A,Y,9,U\n}, $_
"
LINE: while (defined($_ = <ARGV>)) {
    chomp $_;
    printf "%sUF,A,Y,9,U\n", $_;
}
-e syntax OK
[download]

Ideally, you should be using a well-tested module like Text::CSV for these kind of activities. Since this is an one-time activity, I'm going to show you the simplest way. Why not do something like:

$ cat > somestuff.csv
10004,Able,Baker,able.baker@notrealemail.com
14634,Charley,Delta,charley.delta@notrealemail.com
12886,Echo,Foxtrot,echo.foxtrot@notrealemail.com
14366,Golf,Hotel,golf.hotel@notrealemail.com
10178,India,Juliet,india.juliet@notrealemail.com
10164,Kilo,Lima,kilo.lima@notrealemail.com
10124,Mike,November,mike.november@notrealemail.com
$ perl -pi -e 's/\Z/,UF,A,Y,9,U/' somestuff.csv
$ cat somestuff.csv
10004,Able,Baker,able.baker@notrealemail.com,UF,A,Y,9,U
14634,Charley,Delta,charley.delta@notrealemail.com,UF,A,Y,9,U
12886,Echo,Foxtrot,echo.foxtrot@notrealemail.com,UF,A,Y,9,U
14366,Golf,Hotel,golf.hotel@notrealemail.com,UF,A,Y,9,U
10178,India,Juliet,india.juliet@notrealemail.com,UF,A,Y,9,U
10164,Kilo,Lima,kilo.lima@notrealemail.com,UF,A,Y,9,U
10124,Mike,November,mike.november@notrealemail.com,UF,A,Y,9,U
$
[download]

Doing things like calling perl to do AWK is just overkill, since perl was meant to take in all the goodness of sed, awk and shell scripting, wiping away the pain of all other scripting stuff!

Do read more of perl "pie-ness" in perlrun and CSV handling in Text::CSV. Have fun!

Reading about Bareword errors helped me to figure out that I need to pursue your suggestion in using Text::CSV module. I will move in that direction.

Thank you for the assistance.

Frankly, IMHO, using Text::CSV for such a simple problem is overkill, since it can be done without any regard to the fact that your file contains CSV data. only need to add a trailer to each line.

Update: see my post below for a simple solution.

So I tried it within a single line script with strict and warnings. It generated this error:

It is simply a single line attempt.

#!/usr/bin/perl
use strict;
use warnings;

perl -ne 'chomp; printf "%sUF,A,Y,9,U\n", $_' test2.csv;
[download]

It generates the Bareword error. I have been reading on that topic and can see that the earlier comment pointing me to Text::CVS module is the correct approach. So that is where I'm going.

Thank you.

That should indeed generate syntax errors because perl is not a valid function name in Perl. You can't just type random shell commands into perl and expect it to process them like your shell would - they are completely different systems.

#!/usr/bin/perl -n
use strict;
use warnings;

chomp;
printf "%sUF,A,Y,9,U\n", $_;
[download]

See perlrun for how to use flags like -n and perlfunc for a list of all the functions available. Note that I've made no attempt to optimise your algorithm here.

perl script.pl test2.csv > final.csv
[download]

use strict;
use warnings;
while (my $line = <>) {
    chomp $line;
    print "$line", " ,UF, A, Y, 9, U\n";
}
[download]

I just realized that my example of desired output includes spaces between the appended values. There should not be spaces. Sorry.

... and please see How do I change/delete my post? for site best practices for updating your post.

---

Give a man a fish:  <%-{-{-{-<

So, why not edit your post and mark it as an EDIT? :-)

Sorry, I missed the strike component.

Thanks.