Разное > Поиск, изготовление скриптов и прочее...

Нужен скрипт чтения каталога с файлами.

<< < (2/4) > >>

Tweak:
Chs
Плиз, напиши, а то у меня уже голова кругом идет.

Напиши все подробно, что Copy - Paste - работает.

Спасибо.

P.S. Отблагодарю

Britva:
Tweak

--- Цитировать ---Не работает  
--- Конец цитаты ---

Все проверялось на php 4.0.6-4.1.0 -- и работало.

--- Цитировать ---Может что -нибудь попроще?
--- Конец цитаты ---

Куда уж проще? :)

Tweak:
Britva
У меня может старая версия php - PHP4.0.1 pl2

Мне лучше использовать перл.


Chs

Помоги мне пожалуйста, напиши скрипт

NAS

А вы не чем не можете мне помочь?

Chs:

--- Цитировать ---
Chs

Помоги мне пожалуйста, напиши скрипт


--- Конец цитаты ---



--- Код: ---
#!/usr/bin/perl

use strict;

my $dir = \'./temp\';

opendir(DIR,$dir) || die($!);
my $cfile;
my @res;
while($cfile = readdir(DIR))
{
next if (($cfile eq ".") or ($cfile eq ".."));
next if -d "$dir/$cfile";
open(CF,"$dir/$cfile") || die($!);
my @strs = ;
my $str = join("\\n",@strs);
if ($str =~ m|(.*?)|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;
}

--- Конец кода ---

Tweak:
Chs
На домашнем компьютере этот скрипт не зарадотал, так как он не может найти допольнительный модуль.

Закачал в интернет, ты будешь смеятся, при вызове этого скрипта, браузер предлагает сохранить этот скрипт. С сервером все нормально, другие скрипты работают.

Ну плиз, помоги написать ПРОСТОЙ скрипт, без дополнительных модулей, стандартными способами.

Буду ждать ответа...

Навигация

[0] Главная страница сообщений

[#] Следующая страница

[*] Предыдущая страница