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

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

Форум программистов > Perl: разработка для Web > поиск в файле построчно

Автор: igoruk 3.9.2006, 18:22

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

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

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

Автор: comtat 3.9.2006, 19:02

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

Код



#!/usr/sh

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

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

Автор: Nab 3.9.2006, 19:13

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

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

Код



#!/usr/sh

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

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

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

Автор: comtat 3.9.2006, 19:22

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

)

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

Автор: igoruk 3.9.2006, 21:02

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

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

Код


#!/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>

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

Автор: igoruk 3.9.2006, 23:04

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

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

Автор: ZeeLax 4.9.2006, 08:40

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

)

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

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