Гость
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / Поиск в файле / 5 сообщений из 5, страница 1 из 1
20.01.2004, 14:30
    #32381730
Zeika
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поиск в файле
Добрай день...
Пробл такой...
Может и тревиально, но я сталкиваюсь впервые...
Как организовать поиск внутри одного тестового файла?
Поиск по заданому слову.
Де еще чтобы потом выводить тервыей три слова строки 8(
...
Рейтинг: 0 / 0
20.01.2004, 14:49
    #32381763
antonprk
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поиск в файле
Я бы сделал так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
$source=file( "name_file.txt" );
$serchWord= "word" ;
foreach($source as $str){
  if(preg_match( "/" .$serchWord. "/Ui" ,$str){
   $arrayStr=preg_split( "/ /" ,$str);
   for($pos= 0 ;$pos< 3 ;$pos++){
    echo $arrayStr[$pos]. " " ;
   };
   echo  "\n" ;
  };
};
...
Рейтинг: 0 / 0
03.02.2004, 20:25
    #32397230
Uzaren
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поиск в файле
а я бы сделал так:

#!/usr/bin/perl

$srch = 'slovo';
$fname = 'file.txt';

open( FIL, $fname );
$_ = join( "", <FIL> );
close( FIL );

m/^(.*?$srch.*?)$/im;
$_ = $&;
m/^(\w+\W+\w+\W+\w+\W+)/;
$_ = $&;

print $_;
...
Рейтинг: 0 / 0
04.02.2004, 00:57
    #32397317
Хрен
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поиск в файле
хехехе..тогда уж
Код: plaintext
1.
 perl -ne ' if (/твоеслово/) { ( $u1 , $u2 , $u3) = split; print qq($u1 $u2 $u3 \n);  }' <твойфайл
...
Рейтинг: 0 / 0
04.02.2004, 01:01
    #32397318
Хрен
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поиск в файле
Или даже так
Код: plaintext
1.
grep слово файл|cut -f1, 2 , 3  -d' '
...
Рейтинг: 0 / 0
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / Поиск в файле / 5 сообщений из 5, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]