When was the last post in this forum, anyhow?
I needed to turn:
Name
Address
City St Zip
Name
Address
City St Zip
into:
Name, Address, City St Zip
Name, Address, City St Zip
but of course, they weren't that standardized. With a little help from the folks on perl.beginners, I came up with the following:
local $/ = "\n\n";
open(ADDRESSES, "c:\\temp\\testing.txt") or die "Could not open input
file: $!";
open(OUTCSV, "> c:\\temp\\test2.txt") or die "Could not open output
file: $!";
while(
) {
$NextRec = "\"".join("\",\"", split("\n"))."\"\n";
print OUTCSV $NextRec;
}
I wonder what I'll find to do next. :-)
