pushing onto multiple arrays

martymart has asked for the wisdom of the Perl Monks concerning the following question:

Fellow Monks,
is it possible to push stuff onto two (or more) arrays at the same time?
For example:

push @array, "some text";
push @array2, "some text";
[download]

is there an easier way to do this, something like

push (@array,@array2), "some text";
[download]

although obviously this doesn't work, or I wouldn't be asking here. Apologies in advance if this is a really obvious answer, it just doesn't seem to be covered in my programming perl book (second edition)

Many Thanks,
Martymart

Comment on pushing onto multiple arrays Select or Download Code

Replies are listed 'Best First'.
Re: pushing onto multiple arrays by broquaint (Abbot) on Mar 31, 2004 at 11:12 UTC
A simple `for` should do it e.g `my(@a1, @a2); push @$_, 'a string' for \@a1, \@a2; print "a1: @a1\na2: @a2\n"; __output__ a1: a string a2: a string` [download] HTH `_________ broquaint`	[reply] [d/l]
Re: pushing onto multiple arrays by Hena (Friar) on Mar 31, 2004 at 11:15 UTC
Using arrays of arrays it gets easier. Something like this: `my @list; foreach (0 .. 5) { push (@{$list[$_]},"some text"); }` [download] UPDATE: fix typo in code, thanks Happy-the-monk :)	[reply] [d/l]
Re: pushing onto multiple arrays by Hofmator (Curate) on Mar 31, 2004 at 13:05 UTC
Going with broquaint's solution, if you should need it more than once, put it into a sub, e.g. `sub mpush { my $arrays = shift; local $_; push @$_, @_ for @$arrays; } mpush [\@array, \@array2], "some text";` [download] -- Hofmator	[reply] [d/l]