On 12/03/2011 08:12 PM, John W. Krahn wrote:
my @summer = ( qw|
January February March
April May June
July August September
October November December
| )[ 0, 1, 2 );
my @winter = ( qw|
January February March
April May June
July August September
October November December
| )[ 5, 6, 7 );
my @summer = @months[ 0, 1, 2 );
my @winter = @months[ 5, 6, 7 );
probably a cut/paste issue but all those slices above close with ) and
not ].
uri
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
http://learn.perl.org/
