Barron Snyder (CE CEN) wrote: > When using the range operator, is the list actually created with all the > elements?
It depends. :-) In general, yes it does. See the "Range Operators" section of perlop: perldoc perlop > For example, if I create a list like (123..456754), does it take up the > same amount of memory as if I actually entered all those in between > numbers? Yes. > I'm asking because I want to use ranges in a switch statement and they > are large ranges like the above. I don't think I can use >= in the case > section of the switch can I? > > I think the code below will cause memory problems. Is there a better way > using switch? Or am relegated to using if statements with ">="? It looks like you can use bitwise operators: my $flag_value = $field_array[ 9 ]; $block{ WeightItem } = 'Y' if $flag_value & 0x00000001; $block{ EnterPriceUsed } = 'Y' if $flag_value & 0x00000002; $block{ PriceRequired } = 'Y' if $flag_value & 0x00000004; $block{ LogItemExcpt } = 'Y' if $flag_value & 0x00000008; $block{ CodeFromAlias } = 'Y' if $flag_value & 0x00000010; $block{ NoMovement } = 'Y' if $flag_value & 0x00000020; $block{ EmpDiscount } = 'Y' if $flag_value & 0x00000100; $block{ KeyedPrice } = 'Y' if $flag_value & 0x00000200; $block{ NonDiscntable } = 'Y' if $flag_value & 0x00000400; $block{ WghtQtyEnt } = 'Y' if $flag_value & 0x00000800; $block{ VoidItem } = 'Y' if $flag_value & 0x00001000; $block{ RefndEntered } = 'Y' if $flag_value & 0x00002000; $block{ LogExcptCond } = 'Y' if $flag_value & 0x00004000; $block{ PrhibMultCoup } = 'Y' if $flag_value & 0x00008000; $block{ AmtTypeAutoMarkdown } = 'Y' if $flag_value & 0x00010000; $block{ VoidAllItem } = 'Y' if $flag_value & 0x00020000; $block{ ErrCorrectVoidItem } = 'Y' if $flag_value & 0x00040000; $block{ Nsc2PricedItems } = 'Y' if $flag_value & 0x00080000; $block{ ItemOnSale } = 'Y' if $flag_value & 0x02000000; $block{ ManualWeight } = 'Y' if $flag_value & 0x04000000; John -- use Perl; program fulfillment -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>