Re^2: Range Operator in If Statement

I'm SURE there is a 100 different ways to do this...

Here's one way to assign to $bundle that requires a lot less typing. Replace your call to get_bundle and the sub itself with:

$bundle = [ 'A' .. 'F' ]->[ ( $ref_number - 1 ) / 8 ];

Update: Removed unnecessary parentheses around the arrayref.

Comment on Re^2: Range Operator in If Statement Select or Download Code

Replies are listed 'Best First'.
Re^3: Range Operator in If Statement by mmartin (Monk) on Jan 05, 2012 at 19:23 UTC
Not_a_Number, thanks for the reply... Cool stuff... Could you explain a little how that works exactly? I'm still relatively new to Perl. Thanks, Matt	[reply]
Re^4: Range Operator in If Statement by Not_a_Number (Prior) on Jan 06, 2012 at 11:15 UTC
Could you explain... Let me try. First, `[ 'A' .. 'F' ]` is a reference to an anonymous arrray (see references quick reference). To access, for example, the second element of this array, the syntax is: `[ 'A' .. 'F' ]->[1]` (You could also do `${ [ 'A' .. 'F' ] }[1]` but I find the first form cleaner.) Then, instead of hard-coding the array index, my snippet calculates it in the fashion indicated in LanX's post above. The only difference is that I've removed `int()` since perl happily does this part of the job for me when I use a floating point number as an array index. To clarify, the following code, using a named array and an intermediate variable (`$index`), does the same thing: `my @array = ( 'A' .. 'F' ); my $ref_number = 42; # or whatever my $index = ( $ref_number - 1 ) / 8; my $bundle = $array[ $index ]; print $bundle;` [download] hth, dave	[reply] [d/l] [select]
Re^5: Range Operator in If Statement by mmartin (Monk) on Jan 06, 2012 at 17:30 UTC
Hey thanks for the explaination... I'll give it a try and see how it goes. Thanks Again, Matt	[reply]