Perl практика




Присваивание.


@fred = (1, 2, 3); @barney = @fred; @huh = 1; #(1)

@fred = qw(one two); @barney = (4, 5, @fred, 6, 7); @barney = (@barney, "last");

($a, $b, $c) = (1, 2, 3); ($a, $b) = ($b, $c); ($d, @fred) = ($a, $b, $c);

Если переменная-массив присваивается переменной-скаляру - размер массива:

@fred = (4, 5, 6); $a= @fred;




Содержание  Назад  Вперед