Введение в Perl



Пример 14



Пример 14

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

Результат: ЯНВАРЬФЕВРАЛЬМАРТ



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