Forum Webscript.Ru
Разное => Поиск, изготовление скриптов и прочее... => Тема начата: Tweak от 07 Февраля 2002, 00:24:57
-
Я хотел бы вас попросить, у меня просьба, не могли бы вы написать мне скрипт который читает заданную директорию, в которой лежат файлы, читает, что находится между тегами и </tille> делает список именно по title и делает ссылки на эти страницы. + чтобы он пог это сортировать по дате изменения файла, и желательно на перле и без дополнительных модулей.<br /><br />Я был бы очень вам благодарен, если хотите, мог бы вам дать показов RLE.<br /><br />Заранее огромное вам спасибо. Пожалуйста, помогите, это очень очень нужно и очень срочно. Пожалуйста, ответьте мне как можно скорее.
</dd>
<dt class="postheader">
Название: <strong>на PHP</strong><br />
Отправлено: <strong>Britva</strong> от <strong>07 Февраля 2002, 01:33:20</strong>
</dt>
<dd class="postbody">
http://forums.webscript.ru/showthread.php?s=&threadid=2958<br />4-ый по счету пост
</dd>
<dt class="postheader">
Название: <strong>или</strong><br />
Отправлено: <strong>NAS</strong> от <strong>07 Февраля 2002, 01:56:43</strong>
</dt>
<dd class="postbody">
http://forums.webscript.ru/showthread.php?s=&postid=15832#post15832
</dd>
<dt class="postheader">
Название: <strong>Нужен скрипт чтения каталога с файлами.</strong><br />
Отправлено: <strong>Tweak</strong> от <strong>07 Февраля 2002, 14:29:33</strong>
</dt>
<dd class="postbody">
Не работает :(<br /><br />Warning: Wrong datatype in asort() call in demo.php3 on line 21<br />Warning: Variable passed to reset() is not an array or object in demo.php3 on line 22<br />Warning: Variable passed to each() is not an array or object in demo.php3 on line 23<br /><br />Строки:<br />21: asort($data); <br />22: reset($data); <br />23: while (list ($key, $val) = each ($data)) {<br /><br />Может что -нибудь попроще? А может кто-нибудь подскажет как это сделать на перле?<br /><br />Пожалуйста, помогите.
</dd>
<dt class="postheader">
Название: <strong>Нужен скрипт чтения каталога с файлами.</strong><br />
Отправлено: <strong>Chs</strong> от <strong>07 Февраля 2002, 14:52:01</strong>
</dt>
<dd class="postbody">
<div class="quoteheader"><div class="topslice_quote">Цитировать</div></div><blockquote class="bbc_standard_quote">А может кто-нибудь подскажет как это сделать на перле?<br /></blockquote><div class="quotefooter"><div class="botslice_quote"></div></div><br /><br />На перле просто - <br />читается директория, для каждого файла берется дата изменения, считывается файл и регулярным выражением выкусывается все между нужными тегами, запихивается в массив и потом сортируется.<br /><br />Вуаля! :)
</dd>
<dt class="postheader">
Название: <strong>Нужен скрипт чтения каталога с файлами.</strong><br />
Отправлено: <strong>Tweak</strong> от <strong>07 Февраля 2002, 14:56:44</strong>
</dt>
<dd class="postbody">
<strong>Chs</strong> <br />Плиз, напиши, а то у меня уже голова кругом идет.<br /><br />Напиши все подробно, что Copy - Paste - работает.<br /><br />Спасибо.<br /><br />P.S. Отблагодарю
</dd>
<dt class="postheader">
Название: <strong>Нужен скрипт чтения каталога с файлами.</strong><br />
Отправлено: <strong>Britva</strong> от <strong>07 Февраля 2002, 15:40:07</strong>
</dt>
<dd class="postbody">
<strong>Tweak</strong> <br /><div class="quoteheader"><div class="topslice_quote">Цитировать</div></div><blockquote class="bbc_standard_quote">Не работает </blockquote><div class="quotefooter"><div class="botslice_quote"></div></div><br />Все проверялось на php 4.0.6-4.1.0 -- и работало.<br /><div class="quoteheader"><div class="topslice_quote">Цитировать</div></div><blockquote class="bbc_standard_quote">Может что -нибудь попроще? </blockquote><div class="quotefooter"><div class="botslice_quote"></div></div><br />Куда уж проще? :)
</dd>
<dt class="postheader">
Название: <strong>Нужен скрипт чтения каталога с файлами.</strong><br />
Отправлено: <strong>Tweak</strong> от <strong>07 Февраля 2002, 16:01:52</strong>
</dt>
<dd class="postbody">
<strong>Britva</strong> <br />У меня может старая версия php - PHP4.0.1 pl2<br /><br />Мне лучше использовать перл.<br /><br /><br /><strong>Chs</strong><br /><br />Помоги мне пожалуйста, напиши скрипт<br /><br /><strong>NAS</strong><br /><br />А вы не чем не можете мне помочь?
</dd>
<dt class="postheader">
Название: <strong>Нужен скрипт чтения каталога с файлами.</strong><br />
Отправлено: <strong>Chs</strong> от <strong>07 Февраля 2002, 16:27:31</strong>
</dt>
<dd class="postbody">
<div class="quoteheader"><div class="topslice_quote">Цитировать</div></div><blockquote class="bbc_standard_quote"><br />Chs<br /><br />Помоги мне пожалуйста, напиши скрипт<br /><br /></blockquote><div class="quotefooter"><div class="botslice_quote"></div></div><br /><br /><div class="codeheader">Код: <a href="javascript:void(0);" onclick="return smfSelectText(this);" class="codeoperation">[Выделить]</a></div><code class="bbc_code"><br />#!/usr/bin/perl<br /><br />use strict;<br /><br />my $dir = \'./temp\';<br /><br />opendir(DIR,$dir) || die($!);<br />my $cfile;<br />my @res;<br />while($cfile = readdir(DIR))<br />{<br /><span style="white-space: pre;"> </span>next if (($cfile eq ".") or ($cfile eq ".."));<br /><span style="white-space: pre;"> </span>next if -d "$dir/$cfile";<br /><span style="white-space: pre;"> </span>open(CF,"$dir/$cfile") || die($!);<br /><span style="white-space: pre;"> </span>my @strs = <CF>;<br /><span style="white-space: pre;"> </span>my $str = join("\\n",@strs);<br /><span style="white-space: pre;"> </span>if ($str =~ m|<title>(.*?)|so)
{
my $title = $1;
my $time = (stat("$dir/$cfile"))[10];
push @res, $time."\\t".$title."\\n";
}
close(CF);
}
closedir(DIR);
@res = sort @res;
print "Content-type: text/plain\\n\\n";
foreach (@res)
{
$_ = (split("\\t"))[1];
print;
}
-
Chs
На домашнем компьютере этот скрипт не зарадотал, так как он не может найти допольнительный модуль.
Закачал в интернет, ты будешь смеятся, при вызове этого скрипта, браузер предлагает сохранить этот скрипт. С сервером все нормально, другие скрипты работают.
Ну плиз, помоги написать ПРОСТОЙ скрипт, без дополнительных модулей, стандартными способами.
Буду ждать ответа...
-
1. Отруби Use strict; ( поставь # в начале строки)
2. На сайте надо поменять права скрипта на 755, иначе оно не исполняемое а обычное файло.
-
sarutobi
У меня на сервере стоит Windows 2000, и не о каких правах доступа и речи не может идти.
Отрубить ту строку - мало, этот модуль еще два раза в скрипте встречается, так что без него никак.
Chs
Где вы?
-
На домашнем компьютере этот скрипт не зарадотал, так как он не может найти допольнительный модуль.
Какой модуль????????
В скрипте неиспльзуются никакие модули.:)))
Ну плиз, помоги написать ПРОСТОЙ скрипт, без дополнительных модулей, стандартными способами.
Ну написал, ПРОСТОЙ, без дополнительных модулей.:)
Поменяй
print "Content-type: plain/text\\n\\n";
на
print "Content-type: text/plain\\n\\n";
Старею.:)
-
Chs
Один фиг. Смотри:
[Fri Feb 08 11:57:45 2002] [error] [client 127.0.0.4] Premature end of script headers: e:/cgi-bin/test.pl
[Fri Feb 08 11:57:45 2002] [error] [client 127.0.0.4] Can\'t locate strict.pm in @INC (@INC contains: .) at e:\\CGI-BIN\\TEST.PL line 3.
[Fri Feb 08 11:57:45 2002] [error] [client 127.0.0.4] BEGIN failed--compilation aborted at e:\\CGI-BIN\\TEST.PL line 3.
Понятным языком пишет "Can\'t locate strict.pm" ну нет у меня этого модулю stirct.pm !!!!!!!!!!!!
-
Корявый Перл у тебя. У станови Activstate. Всё будет.
-
Понятным языком пишет "Can\'t locate strict.pm" ну нет у меня этого модулю stirct.pm !!!!!!!!!!!!
Странно.
Убери use strict;
-
NAS
А что это даст? На сервер то все равно рабоать не будет.
Я ВАС ПРОШУ, ПОММГИТЕ СО СКРИПТОМ БЕЗ МОДУЛЮ!!!!!!!!!!!!!!!!!! ПЛИЗ!!!!
-
Chs
О-о-о. Убрал, пишет заголовки файлов, но как - то странно, обзацами. Но не выводит ссылки.
Ты его тестил??? Потесть плиз, чтобы все работало как надо.