«

Hi ,

If I want to declare many variables $X1, $X2, $X3...$X20 and assign
all these variables with same default value, 10, how could I do in
short way instead of typing long nasty code like below?

$X1=10;
$X2=10;
$X3=10;
|
|
|
$X20=10;

Thanks

TS wrote:
> Hi ,
>
> If I want to declare many variables $X1, $X2, $X3...$X20 and assign
> all these variables with same default value, 10, how could I do in
> short way instead of typing long nasty code like below?
>
> $X1=10;
> $X2=10;
> $X3=10;
> |
> |
> |
> $X20=10;
>
> Thanks
>

Better: use an array:
@X = (10) x 21;

Your variables are then $X[0] through $X[20], you'd lose one variable if
the naming scheme should be kept.

--
Josef Möllers (Pinguinpfleger bei FSC)
If failure had no penalty success would not be a prize
-- T. Pratchett

TS wrote:
> If I want to declare many variables $X1, $X2, $X3...$X20 and assign
> all these variables with same default value, 10, how could I do in
> short way instead of typing long nasty code like below?
>
> $X1=10;
> $X2=10;
> $X3=10;
> |
> |
> |
> $X20=10;

For e.g. three variables you can do:

my ($X1,$X2,$X3) = (10) x 3;

But are you sure you don't want an array

my @X = (10) x 20;

or a hash

my %X = map { $_ => 10 } 1..20;

instead?

--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl

"TS" <> writes:

> Thanks.

Thanks to whom? For what? Please quote enough of the message you're replying
to for your own message to make sense to everyone, not just those who happen
to be using Google to view entire threads at once.

sherm--

Thanks.