Введение в Perl

       

в скалярном контексте возвращает количество



Пример 13

($a, $b, $c) = (1, 2, 3); # $a = 1, $b = 2, $c = 3 Присваивание списков в скалярном контексте возвращает количество присвоенных элементов.


Пример 13

$s = "hello"; # Исходная строка $s =~ tr/a-z/A-Z/; # Заменить малые буквы на большие. Результат # 'HELLO' $s = 'Hel....lo'; $s =~ tr/a-zA-z/_/c; # Заменить все не буквы на '_' # Результат 'Hel____lo' $s =~ tr/_/ /s; # Заменить '_' на ' ' и сжать. # Результат 'Hel lo' $s =~ tr/a-zA-Z /a-zA-Z/d; # Удалить все не буквы. Результат 'Hello' Если один и тот же символ несколько раз указан в таблице1, то применяется только первая замена.



Пример 13

@месяц = ("январь","февраль","март"); # Создали массив foreach $i (@месяц) { print $i," "; # Печать $i } Результат: январь февраль март

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