On Tue, Jan 14, 2003 at 10:57:13PM +0100, Jenda Krynicky wrote:
> From: "Johnstone, Colin" <[EMAIL PROTECTED]>
> > <snipped>
> > my $outString;
> > $outString = "";
> > $outString .= $fields{'SelectCity'} . ",";
> > $outString .= $fields{'Workshop1'} . ",";
> > $outString .= $fields{'Workshop2'} . ",";
> > $outString .= $fields{'Salutation'} . ",";
> > $outString .= $fields{'FirstName'} . ",";
> > $outString .= $fields{'LastName'} . ",";
> > $outString .= $fields{'Title'} . ",";
> > $outString .= $fields{'CompanyName'} . ",";
> > $outString .= $fields{'CompanyAddress'} . ",";
> > $outString .= $fields{'Suburb'} . ",";
> > $outString .= $fields{'State'} . ",";
> > $outString .= $fields{'PostCode'} . ",";
> > $outString .= $fields{'PhoneNumber'} . ",";
> > $outString .= $fields{'Mobile'} . ",";
> > $outString .= $fields{'EmailAddress'};
>
> Too much VB? ;-)
>
> my $outString = join(',',
> map {$fields{$_}} qw(SelectCity Workshop1 Workshop2 Salutation
> FirstName LastName Title CompanyName CompanyAddress Suburb State
> PostCode PhoneNumber Mobile EmailAddress)
> );
Or
my $outString = join(',',
@fields{qw(SelectCity Workshop1 Workshop2 Salutation
FirstName LastName Title CompanyName CompanyAddress Suburb State
PostCode PhoneNumber Mobile EmailAddress)}
);
--
Paul Johnson - [EMAIL PROTECTED]
http://www.pjcj.net
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
