Введение в Perl

       

Прочитать все строки файла



Пример 5

$var1 = <>; # Прочитать одну строку файла @var1 = <>; # Прочитать все строки файла в массив @var1 $var1 = (1,2,3); # $var = 3 - количество элементов @var1 = (1,2,3); # Создание массива @var1 с элементами 1,2,3


Пример 5

($a, $b, $остаток) = split(/ /, "Один Два Три Четыре",3); здесь $a = 'Один', $b = 'Два' и $остаток = 'Три Четыре'
Если шаблон содержит круглые скобки, то символы-разделители, указанные в них, вставляются в результирующий список как обычные элементы, причем вставляется символ, который совпал с разделителем.



Пример 5

@алфавит = ('a'..'z'); # Массив малых букв латинского алфавита @цифры = (0..9); # Массив цифр



Печать $var

$var = 1; print $var++ unless $var > 5; # Печать $var с инкрементом

Результат: 1

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