RE: CSV File Creation

[Bob Showalter]

Jenda Krynicky wrote:
> ...
> my $outString = join(',',
>       map {$fields{$_}} qw(SelectCity Workshop1 Workshop2 Salutation
>               FirstName LastName Title CompanyName
> CompanyAddress Suburb State
>               PostCode PhoneNumber Mobile EmailAddress)
>       );

Or a hash slice:

    my $outString = join ',', @fields{qw(
        SelectCity Workshop1 Workshop2 Salutation
        FirstName LastName Title CompanyName
        CompanyAddress Suburb State
        PostCode PhoneNumber Mobile EmailAddress
    )};

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]