Исходное сообщение
"аналоги sed, wc на perl" Отправлено greenwar, 05-Окт-09 11:03
доброго всем.. чего-нибудь начал тут изучать перловку после изучения шелла.. пытаюсь найти аналохи давно привычных операций, типа wc -l, sed 2000!d filename и т.д., и чё-то гуголь не помогает совсем какие-то там сложные всё решения например, предлагается для подсчёта строк в файле использовать: open(FILENAME,"filename"); while(<>) { } print $."\n"; тобишь он должен пробежать по всему файлу и выдать номер последней строки.. Ы но вообще есть мысль (подтверждённая книжкой с верблюдом, которую я аж 74 страницы уже прочёл), что перл авто_в_курсе сколько в каждом считываемом файле строк и сколько в каждой считываемой строке символов (кстати, аналог wc -m это length $curline) и т.д., поэтому вот ищу какой-то способ по ресурсонезависемей, чем считывания построчно всего файла.. а особенно, если он в цикле.... конкретно, хотелось бы, для начала, научиться воспроизводить: wc -l, wc -w (последнее, видимо, читается через split(), а потом можно посчитать кол-во элементов в массиве видимо.. проще никак?) sed -n 900p (или sed 900!d), т.е. распечатка конкретной строки из файла пробовал: open (FILENAME,"namefile"); foreach (<FILENAME>) { print $_ if $.==12; } но, во1, оно, опять же, считывает построчно весь файл, что не совсем эффективно, а, во2, не работает.. вот.. может кто подскажет, а то книжку пока прочту..