Исходное сообщение
"аналоги sed, wc на perl" Отправлено XAnder, 05-Окт-09 14:33
>ну а чего ж не работает этот код: Всё просто: >open (FILENAME,"namefile"); Открыли файл, ничего не прочитали пока. >foreach (<FILENAME>) Подставили файл туда, где ожидается список. Соответственно из файла (неявно!) делается список, т. е. файл читается, разбивается на строки, из которых и составляется список. >{ >print $_ if $.==12; Ага! Файл-то уже прочитан весь! Тогда $. сразу же содержит число строк в этом файле. >} Ох уж эти неявные преобразования в Пёрле! Они делают программы лёгкими для написания, но трудными для понимания и ловли глюков ;-)