Angus Laycock wrote:
>
> Hi,
Hello,
> I have an array ----> @array = qw(alf bert charlie 4)
>
> and I want a string that contains this value <
> 'alf','bert','charlie','4' > with the single quotes and commas.
>
> I know I can do this $string = join ( ',' , @array);
> which gives me this ----> < one|two|three|four> but how
> do I get the single quotes around each word.
>
> Also, how can I check if one of the values is numeric so
> I dont put quotes around it? So the result is like this
> ---> < 'alf','bert','charlie',4 >
my @array = qw(alf bert charlie 4 -3 0 6.43 -9.234);
my $string;
{ local $^W; # turn off warnings
$string = join ',', map { $_ eq $_ + 0 ? $_ : "'$_'" } @array;
}
print "$string\n";
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
