Введение в Perl

       

в списке другие списки, но



Пример 10

@var1 = (1, 2, 'привет', 1.2); # Присвоить значение элементам. где
$var1[0] = 1, $var1[1] = 2, $var1[2] = 'привет' $var1[3] = 1.2 $var1 = (1, 2, 'привет', 1.2); а здесь $var1 = 1.2 т.е. последнее значение списка.
Допускается применять в списке другие списки, но в полученном списке уже невозможно различить начало и конец включенных списков.


Пример 10

print `date`; Результат: Thu Nov 14 13:36:49 MSK 1996
qw/строка/
Возвращает список, элементы которого - слова строки, разделенные пробелами.



Пример 10

M1: while ($i < 6) { ++$i; # Увеличиваем счетчик на 1 last M1 if $i > 3; # Выход из цикла если $i > 3 ++$i; # иначе увеличиваем счетчик еще раз на 1 } continue { print "$i "; # Печатаем $i } Результат: 2 4



Содержание раздела