Исходное сообщение
"аналоги sed, wc на perl" Отправлено greenwar, 05-Окт-09 15:13
>[оверквотинг удален] >>{ >>print $_ if $.==12; > >Ага! Файл-то уже прочитан весь! Тогда $. сразу же содержит число строк >в этом файле. > >>} > >Ох уж эти неявные преобразования в Пёрле! Они делают программы лёгкими для >написания, но трудными для понимания и ловли глюков ;-) непонятно, почему он уже весь прочитан, когда должен отработать блок {} для каждой строки.. вообще оно работает, если вместо foreach использовать while очевидно я плохо понял значение foreach... P.S. кстати, аналог wc -w: open(FILENAME,"namefile"); @words=split(/ /, $_); $wordsnumber=scalar @words;

Ваше сообщение
Имя*:
EMail:	Для отправки новых сообщений в текущей нити на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	>>[оверквотинг удален] >>>{ >>>print $_ if $.==12; >> >>Ага! Файл-то уже прочитан весь! Тогда $. сразу же содержит число строк >>в этом файле. >> >>>} >> >>Ох уж эти неявные преобразования в Пёрле! Они делают программы лёгкими для >>написания, но трудными для понимания и ловли глюков ;-) > непонятно, почему он уже весь прочитан, когда должен отработать блок {} для > каждой строки.. > вообще оно работает, если вместо foreach использовать while > очевидно я плохо понял значение foreach... > P.S. кстати, аналог wc -w: > open(FILENAME,"namefile"); > @words=split(/ /, $_); > $wordsnumber=scalar @words;
	Введите код, изображенный на картинке: