A slightly corrected version of my _CSV with commas in the fields_ solution:
sub DataPrint {
my($Handle, $key, $hashref) = @_;
my $Data = $$hashref{$key};
$Data =~ (s/,/%2C/g);
print $Handle "$Data,";
}
Joseph
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
