creating an array of $n elements

[samwyse]

In Python, I can say "7 * (1,)" to create a list of 7 items. If I need
a list in Perl with all elements initialized to the same value, is
there a one-liner? The best I can come up with is "$a[$n] = 0; pop
@a;" which will give me an array of $n undefs, but it seems a bit
inefficient. Any ideas? Thanks.

 

[Michael Vilain]

In Python, I can say "7 * (1,)" to create a list of 7 items. If I need
a list in Perl with all elements initialized to the same value, is
there a one-liner? The best I can come up with is "$a[$n] = 0; pop
@a;" which will give me an array of $n undefs, but it seems a bit
inefficient. Any ideas? Thanks.

what's wrong with a simple declaration with initialization?

@a = (0, 0, 0, 0, 0, 0, 0);

Or have I missed something?

 

[Jürgen Exner]

If I need
a list in Perl with all elements initialized to the same value, is
there a one-liner?

perldoc perlop ==> Multiplicative Operators ==> x

@ones = (1) x 80; # a list of 80 1's

jue

 

[Jürgen Exner]

In Python, I can say "7 * (1,)" to create a list of 7 items. If I need
a list in Perl with all elements initialized to the same value, is
there a one-liner? The best I can come up with is "$a[$n] = 0; pop
@a;" which will give me an array of $n undefs, but it seems a bit
inefficient. Any ideas? Thanks.

what's wrong with a simple declaration with initialization?

@a = (0, 0, 0, 0, 0, 0, 0);

Or have I missed something?

@a = (0) x 7;

seems to be easier on the eyes.

jue

 

[John W. Krahn]

In Python, I can say "7 * (1,)" to create a list of 7 items. If I need
a list in Perl with all elements initialized to the same value, is
there a one-liner? The best I can come up with is "$a[$n] = 0; pop
@a;" which will give me an array of $n undefs, but it seems a bit
inefficient. Any ideas? Thanks.

$ perl -le'
use Data:umper;
my $n = 7;
my @a = ( undef ) x $n;
print Dumper \@a;
'
$VAR1 = [
undef,
undef,
undef,
undef,
undef,
undef,
undef
];


John

 

[Charlton Wilbur]

s> If I need a list in Perl with all elements initialized to the
s> same value, is there a one-liner?

Look at the x operator in perldoc perlop.

Charlton

 

[samwyse]

In Python, I can say "7 * (1,)" to create a list of 7 items. If I need
a list in Perl with all elements initialized to the same value, is
there a one-liner?  The best I can come up with is "$a[$n] = 0; pop
@a;" which will give me an array of $n undefs, but it seems a bit
inefficient.  Any ideas?  Thanks.

Thanks to everyone. For some reason, I was thinking that the 'x'
operator only applied to strings. D'oh!