Forum Webscript.Ru

Программирование => Perl => Тема начата: Psixolog от 22 Августа 2006, 20:42:48

Название: opendir
Отправлено: Psixolog от 22 Августа 2006, 20:42:48

Код: [Выделить]


       opendir (TN, "gallery");
      rewinddir (TN);
      @TN =  grep(!/^\\.\\.?$/, readdir (TN));
       closedir (TN);
for ($i=0; $i<=$#TN; $i++) {
print "";


Как сделать чтобы он по три картинки на строку выдавал

Название: opendir
Отправлено: arto от 22 Августа 2006, 23:06:04

print "
" if ($i%3==0);

Название: opendir
Отправлено: Psixolog от 23 Августа 2006, 00:11:19

print "
" if ($i%3==0);

Спасибо тока пришлось исправить 0 на 2 и все стало как надо