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

igoruk

Дата 3.9.2006, 18:22 (ссылка)

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

Загрузка ...

Новичок

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

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

hi All

У мня такая проблема необходимо передать через форму некоторое слово,
приняв которое скрипт откроет файл, пройдет с поиском посторочно,
и найдя слово выдаст строку полностью.

терь собственно и проблема данное слово каждый раз есно меняется и поэтому передаю через переменую которыю скрипт не хатит обрабатывать

Код


#!/usr/bin/perl

use strict;
use CGI qw(:all);

print header;
my $x=param('x');
open (PS, "pass.txt") || die "Osibka nax $!\n";
while(defined($dir=<PS>)){
if ($dir =~ /$x/){
print "$dir";
    }
}

Заранее спасиб

Nab

Дата 3.9.2006, 18:46 (ссылка)

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

Загрузка ...

Опытный

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

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

Скрипт в принципе должен работать ... хотя написан он ... блин под стать "русскому", на котором общаетесь smile

А для ответа много чего еще не хватает.
Покажите форму и строку запроса которая получается.

--------------------

Чтобы правильно задать вопрос нужно знать больше половины ответа...
Perl Community
FREESCO in Ukraine

comtat

Дата 3.9.2006, 19:02 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1310
Регистрация: 2.5.2006
Где: Россия, Казань

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

Можно ведь искать и с помощью shell

Код



#!/usr/sh

grep "ХстрокаХ"  pass.txt > pass.log

в pass.log запишутся все строки с вхождением строки "ХстрокаХ"

--------------------

Рожденный в СССР !!!
ExtJS - мой фреймворк

Nab

Дата 3.9.2006, 19:13 (ссылка)

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

Загрузка ...

Опытный

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

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

Цитата(comtat @ 3.9.2006, 19:02)

Можно ведь искать и с помощью shell

Код



#!/usr/sh

grep "ХстрокаХ"  pass.txt > pass.log

в pass.log запишутся все строки с вхождением строки "ХстрокаХ"

Не думаю что разница будет большая, при поиске, а вот полная скорость скрипта уменьшиться, потому как если Вы заметили, человек пишет CGI приложение и вызов дополнительной системной команды весьма не быстрая операция.

--------------------

Чтобы правильно задать вопрос нужно знать больше половины ответа...
Perl Community
FREESCO in Ukraine

comtat

Дата 3.9.2006, 19:22 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1310
Регистрация: 2.5.2006
Где: Россия, Казань

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

Цитата(Nab @ 3.9.2006, 19:13

)

Согласен, я предложил вариант, а используют ли его smile

--------------------

Рожденный в СССР !!!
ExtJS - мой фреймворк

igoruk

Дата 3.9.2006, 21:02 (ссылка)

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

Загрузка ...

Новичок

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

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

2 Nab

собственно форма

<FORM action="http://localhost/cgi-bin/vibor.cgi" method="get">
<BR>
<INPUT TYPE=text NAME=x>
<INPUT type="submit" value="Запрос"><INPUT type="reset">
</FORM>

http://localhost/cgi-bin/vibor.cgi?x=строка_которую_вводишь

незнаю еси с консоли делать все работает а через cgi траблы
smile

Nab

Дата 3.9.2006, 22:17 (ссылка)

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

Загрузка ...

Опытный

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

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

Для начала попробуй так:

Код


#!/usr/bin/perl -w

use strict;    
use CGI qw(:all);    

print header;    

my $x=param('x');    
open (PS, "<pass.txt") || die "Cannot open pass.txt: $!\n";    
# это для проверки
print $x,"\n";

while(<PS>){
    print if /$x/;    
}
close PS;

Код


<FORM action="http://localhost/cgi-bin/vibor.cgi" method="get">
<BR>
<INPUT type="text" NAME="x">
<INPUT type="submit" value="Запрос">
<INPUT type="reset">
</FORM>

И проверь наличие необходимой строки в файле
Также если используется русский, то должны совпадать кодировки...

--------------------

Чтобы правильно задать вопрос нужно знать больше половины ответа...
Perl Community
FREESCO in Ukraine

igoruk

Дата 3.9.2006, 23:04 (ссылка)

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

Загрузка ...

Новичок

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

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

tnx все заработало а я просто в дебри полез тему мона закрывать

Еще раз спасиб smile

ZeeLax

Дата 4.9.2006, 08:40 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 4388
Регистрация: 20.8.2006
Где: Алма-Ата

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

Цитата(igoruk @ 4.9.2006, 02:04

)

тему мона закрывать

Тему не закрывать, а помечать надо. Причем создателю.

--------------------

Utility is when you have one telephone, luxury is when you have two, opulence is when you have three — and paradise is when you have none.
— Doug Larson

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