Index · Правила · Поиск· Группы · Регистрация · Личные сообщения· Вход

Список разделов Нужна помощь
 
 
 

Раздел: Нужна помощь Вопрос программистам ... 

Создана: 26 Июля 2002 Птн 13:46:00.
Раздел: "Нужна помощь"
Сообщений в теме: 2, просмотров: 311

  1. Gas


    Хранитель


    Более 10 лет на форуме
    26 Июля 2002 Птн 13:46:00
    вот такой код программы:

    #!/usr/bin/perl
    require "get_form_data.pl"
    &get_form_data();
    $search_term = $FORM{'search'};
    print "Content-type: text/html\n\n";
    &search(".");
    print <<EOF;
    HTML>
    HEAD>
    TITLE>
    Search
    /</TITLE>
    </HEAD>
    <BODY BGCOLOR="#336699">
    EOF
    foreach $file (@found_set)
    {
    print "<A HERF=\"$file\">$Title{$file}</A>\n";
    print "<BR>\n";
    }
    print "<BR>\n";
    print "<A HREF=\"http://192.168.0.75/search.htm\">Назад</A>\n";
    print <<EOF;
    </BODY>
    </HTML>
    EOF
    exit;
    sub search
    {
    local ($dir) = @_;
    if($dir eq ".")
    {
    opendir (DIR, ".");
    $dir = "";
    }
    else
    {
    opendir(DIR, $dir);
    $dir .="/";
    }
    foreach $file (sort readdir(DIR))
    {
    next if ($file eq "." || $file eq "..");
    $file = $dir . $file;
    next if(($file !~ /.htm/) && (!(-d $file)));

    if(-d $file)
    {
    &search($file);
    next;
    }
    open(FILE,$file);
    $found_match = 0;
    $title ="";
    while(<FILE>)
    {
    if(/$search_term/i)
    {
    $found_match = 1;
    }
    if(/<TITLE>/)
    {
    chop;
    $title = $_;
    $title =~ s/<TITLE>//g;
    $title =~ s/<\/TITLE>//g;
    }
    }
    if($found_match)
    {
    push(@found_set, $file);
    if($title eq "")
    {
    $Title{$file} = $file;
    }
    else
    {
    $Title{$file} = $file;
    }
    }
    close(FILE);
    print"<P>\n";
    }
    closedir(DIR);
    }

    как сменить директорию для поиска с cgi-bin (текущей директории срипта) на htdocs - директорию с htm файлами?

    2 Vampiro:
  2. Gas


    Хранитель


    Более 10 лет на форуме
    26 Июля 2002 Птн 13:47:00
    теги подрезал потому, что форум ругается на них