ЭЛЕКТРОННАЯ БИБЛИОТЕКА КОАПП |
Сборники Художественной, Технической, Справочной, Английской, Нормативной, Исторической, и др. литературы. |
3.2 Literal RepresentationA list literal (the way you represent the value of a list within your program) consists of comma-separated values enclosed in parentheses. These values form the elements of the list. For example: (1,2,3) # array of three values 1, 2, and 3 ("fred",4.5) # two values, "fred" and 4.5 The elements of a list are not necessarily constants - they can be expressions that will be evaluated newly each time the literal is used. For example: ($a, 17) # two values: the current value of $a, and 17 ($b+$c,$d+$e) # two values The empty list (one of no elements) is represented by an empty pair of parentheses: () # the empty list (zero elements) An item of the list literal can include the list constructor function, indicated by two scalar values separated by two consecutive periods. This function creates a list of values starting at the left scalar value and continuing up through the right scalar value, incrementing by one at each value. For example: (1..5) # same as (1, 2, 3, 4, 5) (1.2..5.2) # same as (1.2, 2.2, 3.2, 4.2, 5.2) (2..6,10,12) # same as (2,3,4,5,6,10,12) ($a..$b) # range determined by current values of $a and $b Having the right scalar less than the left scalar results in an empty list; you can't count down by switching the order of the values. If the final value is not a whole number of steps above the initial value, the list stops just before the next value would have been outside the range: (1.3..6.1) # same as (1.3,2.3,3.3,4.3,5.3) List literals with lots of short text strings start to look pretty noisy with all the quotes and commas: @a = ("fred","barney","betty","wilma"); # ugh! Fortunately, Perl has a shortcut: the "quote-word" syntax, which creates a list from the nonwhitespace parts between the parentheses: @a = qw(fred barney betty wilma); # better! @a = qw( fred barney betty wilma ); # same thing One use of a list literal is as arguments to the print("The answer is ",$a,"\n"); # three element literal array This statement prints " |