Filling An Array

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

Greetings PMs,

I am searching for a simple method to fill an array as follows :

$array[0]= "A01";
$array[1]="A02";
[download]

..... and so on until

$array[95]="H12";

In this array, letters range from A thru H, and numbers range from 01 thru 12.

Is this the 'best' way:

@arrayletterlist = qw(A B C D E F G H);
@arraynumberlist = qw(01 02 03 04 05 06 07 08 09 10 11 12);

$count = 0;
foreach $arrayletter (@arrayletterlist) {
    foreach $arraynumber (@arraynumberlist) {
        $masterarray[$count] = $arrayletter . $arraynumber;
        $count++;
    }
}
[download]

Comment on Filling An Array Select or Download Code

Replies are listed 'Best First'.
Re: Filling An Array by Roy Johnson (Monsignor) on Apr 21, 2004 at 21:02 UTC
You can definitely get rid of $count by using push. Here's how I'd do it: `for my $letter ('A'..'H') { for my $num (1..12) { push(@masterarray, sprintf("$letter%02d", $num)); } } print scalar(@masterarray)," elements\n";` [download] If you wanted to use some magic, you could do this instead: `for my $letter ('A'..'H') { push(@masterarray, $letter.'01'..$letter.'12'); }` [download] or even `# The golfiest my @masterarray = map { $_.'01'..$_.'12' } 'A'..'H';` [download] The PerlMonk `tr///` Advocate	[reply] [d/l] [select]
Re: Re: Filling An Array by Qiang (Friar) on Apr 23, 2004 at 03:39 UTC
++Roy I think even the golfiest way is very clear to a reasonable perl user. On the other hand, sprintf never catch my eyes.	[reply]
Re: Filling An Array by tye (Sage) on Apr 21, 2004 at 23:44 UTC
`push @array, $_.'00' .. $_.'12' for 'A'..'H';` [download] - tye	[reply] [d/l]
Re: Filling An Array by Fletch (Bishop) on Apr 21, 2004 at 20:56 UTC
Fore! `my @array; for my $l ( 'A'..'H' ) { push @array, map sprintf("$l%02d", $_), 1..12; }` [download]	[reply] [d/l]
•Re: Filling An Array by merlyn (Sage) on Apr 21, 2004 at 21:06 UTC
Presuming you have a reasonably modern Perl, this'll do: `my @array = glob "{A,B,C,D,E,F,G,H}{0{1,2,3,4,5,6,7,8,9},1{0,1,2}}";` [download] -- Randal L. Schwartz, Perl hacker Be sure to read my standard disclaimer if this is a reply.	[reply] [d/l]
Re: Filling An Array by kvale (Monsignor) on Apr 21, 2004 at 20:59 UTC
Your method is nice and clear. If you are looking for a more golfish solution, try automagical increment: `my $count; for my $lett ('A'..'H') { for my $combo ($lett.'01'..$lett.'12') { $masterarray[$count++] = $combo; } }` [download] -Mark	[reply] [d/l]
Re: Re: Filling An Array by jdporter (Paladin) on Apr 21, 2004 at 21:05 UTC
f00f! `@a = map { my $l = $_; map $l.$_, '01'..'12' } 'A'..'H';` [download]	[reply] [d/l]
Re: Filling An Array by exussum0 (Vicar) on Apr 21, 2004 at 20:56 UTC
The beset way? Did you mean the most concise way? I'm sure we could shorten array variables down for you. Least memory exhaustive? Replacing foreach and those arrays to for(i=0;i<=7;i++ ) and assigning chr(i+65), and another for loop, with a sprintf could work better -- i haven't tested. Fastest? maybe the memory trick above may be marginally faster. I think your solution, is "good enough". Unless you are running it 1million times and need to optimize, this should do you well. It's very self documenting, easily maintainable and most straight forward. Unless you are playing golf, leave it alone! :)	[reply]
Re: Filling An Array by jdporter (Paladin) on Apr 21, 2004 at 21:15 UTC
`@a = grep { (/.(..)/)[0] < 13 } 'A01'..'H12';` [download]	[reply] [d/l]
Re: Re: Filling An Array by Roy Johnson (Monsignor) on Apr 21, 2004 at 21:20 UTC
Incorrect. Includes B00, for example. (Besides, my map is still golfier. `:-)`) The PerlMonk `tr///` Advocate	[reply]
Re: Re: Re: Filling An Array by jdporter (Paladin) on Apr 21, 2004 at 21:33 UTC
Ack! `@a = grep $_++, grep { (/.(..)/)[0] < 12 } 'A00'..'H11';` [download]	[reply] [d/l]
Re: Re: Re: Re: Filling An Array by Roy Johnson (Monsignor) on Apr 21, 2004 at 21:42 UTC
Re: Re: Re: Re: Re: Filling An Array by Not_a_Number (Prior) on Apr 21, 2004 at 21:58 UTC
Re: Filling An Array by DamnDirtyApe (Curate) on Apr 21, 2004 at 22:39 UTC
Mytwo cents: `push @arr, sprintf '%s%02d', chr( $_ / 13 + 65 ), $_ % 13 for 1..103;` [download] _______________ DamnDirtyApe Those who know that they are profound strive for clarity. Those who would like to seem profound to the crowd strive for obscurity. --Friedrich Nietzsche	[reply] [d/l]