VPF::поиск в файле - Форум программистов

yodgik1

Дата 25.10.2007, 10:51 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 13
Регистрация: 21.6.2007

Репутация: нет
Всего: нет

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

shamber

Дата 25.10.2007, 13:48 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1422
Регистрация: 5.9.2006
Где: Россия

Репутация: 1
Всего: 18

Может так?

Код


#!/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 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1145
Регистрация: 3.8.2006
Где: Новосибирск

Репутация: 9
Всего: 50

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

Код


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

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

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Системное программирование \| Следующая тема »