Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Системное программирование > поиск в файле

Автор: yodgik1 25.10.2007, 10:51

подскажите как можно искать в файле с определённой строки ?

Автор: shamber 25.10.2007, 13:48

Может так?

Код


#!/usr/bin/perl -w
use strict;
use warnings; 
my $path =$ARGV[0];имя файла
my $count= $ARGV[1] || 0; строка начиная с которой ищем, если не задано, то с начала :)
open( F, "< $path" ) or die $!;
while ( <F> ) {
  if($count == 0){
           if ( /pattern/ ) {
                 # Делаем что-то со строкой
           }
  }else{
         # не равно 0 значит листаем дальше :)
         $count--;
}

}
close( F ) or die $!;

Автор: amg 25.10.2007, 14:21

Можно и не заводить свой счетчик строк, в перле есть встроенный.

Код


# Пропустить строки до 10-й включительно
do {<F>} until $.==10 || eof;

while (<F>) {
  # Делать что-то с остальными строками
}