Нужна помощь
Вопрос программистам ...
Создана: 26 Июля 2002 Птн 13:46:00.
Раздел: "Нужна помощь"
Сообщений в теме: 2, просмотров: 333
-
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:
-
