multiplying array by constant

[horlage]

How do I multiply an array by a constant in Perl? I didn't turn up anything with a cursory Google search.

Here's what I want (pseudo-code):

@array = (1, 4);
print 3 * @array;

output:
(3, 12)


Thanks a lot.

 

[prex1]

There's no way other than multiplying individually each element by the constant.
You can write it more or less graciously, you can write a routine that does it changing the content of the array, there is also a Matrix module (but personally wouldn't even look at it for such a simple task), but that's it: no matrix manipulation instructions available with perl (as with almost all languages).

prex1

http://www.xcalcs.com

: Online tools for structural design

http://www.megamag.it

: Magnetic brakes for fun rides

http://www.levitans.com

: Air bearing pads

 

[ishnid]

$_ *= 3 for @array;

 

[KevinADC]

no matrix manipulation instructions available with perl (as with almost all languages).

It depends on what you are defining as a matrix. If you mean something like an array of arrays, or a multi-dimensional array, there is plenty of perl documentation for that.


In addition to Ishids example, that changes the array elements, here is a way that does not:

@array = (1,4);
print map {$_ * 3,"\n"} @array;

------------------------------------------
- Kevin, perl coder unexceptional!

 

[horlage]

thanks