« предыдущая тема следующая тема »
Страницы: 1 [2]   Вниз

Автор Тема: фон таблицы  (Прочитано 7994 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн aner

  • Заглянувший
  • Новичок
  • *
  • Сообщений: 27
  • +0/-0
  • 0
    • Просмотр профиля
    • http://
фон таблицы
« Ответ #15 : 01 Марта 2004, 05:46:25 »
2phoinix -
да заработало у меня еще вчера в таком вот виде:
require "image.config"; #это файл, где прописаны пути к каталогу с картинками
opendir(DIR,"$imagedir");
@gif=grep(/gif\\Z/,readdir(DIR));
@jpg=grep(/jpg\\Z/,readdir(DIR));
push(@images,@gif);
push(@images,@jpg);
closedir(DIR);
srand();
$SIZE=@images;
$randnum=int rand $SIZE;
print "Content-type: image/gif\\n\\n";
$image="$imageurl/$images[$randnum]";
print qq($image\\n);

и ссылаюсь на скрипт, как говорил:
За примеры спасибо.
Записан
pro

Оффлайн NeoNox

  • Координатор
  • Глобальный модератор
  • Ветеран
  • *****
  • Сообщений: 3012
  • +0/-0
  • 0
    • Просмотр профиля
фон таблицы
« Ответ #16 : 01 Марта 2004, 11:16:40 »
Немного оптимизируем:
opendir(DIR,"$imagedir") || die "Can\'t open folder $imagedir: $!";
@images=grep(/\\.(gif|jpg)$/,readdir(DIR));
closedir(DIR);
нефиг нам дублировать информацию.
Записан
The documentations is your friend

Оффлайн aner

  • Заглянувший
  • Новичок
  • *
  • Сообщений: 27
  • +0/-0
  • 0
    • Просмотр профиля
    • http://
фон таблицы
« Ответ #17 : 01 Марта 2004, 18:54:05 »
приведенный выше скрипт, в зависимости от того,
в каком порядке идут строчки:
@gif=grep(/gif\\Z/,readdir(DIR));
@jpg=grep(/jpg\\Z/,readdir(DIR));
push(@images,@gif);
push(@images,@jpg);
выдает только gif-файлы из папки, не замечая, jpg, или наоборот, только jpg...

строчка @images=grep(/\\.(gif|jpg)$/,readdir(DIR)); должна выправить дело.

согласен, дублировать информацию нефиг.
Записан
pro
Страницы: 1 [2]   Вверх
« предыдущая тема следующая тема »
 

Sitemap 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28