Введение в Perl
Пример 14
Пример 14
@месяц = ("январь","февраль","март"); # Создали массив foreach $i (@месяц) { $i = uc($i); # Перевели в верхний регистр } print @месяц;
Результат: ЯНВАРЬФЕВРАЛЬМАРТ
- Начало -
- Назад -
- Вперед -