Вывод параметров файлов

Майский 20.03.2007 09:46

Здравствуйте!

Задача: вывести ссылками список картинок из папки с параметрами (ширина x высота, размер, в чём измеряется).

Должно получиться что-то вроде:

1024х768, 30,5 КБайт


Написал такой код:

@test[]
$file_list[^file:list[/img/;^^spheres_1]]
^file_list.menu{ 
	$image_param[^image::measure[/img/$file_list.name]] 
	$file_stat[^file::stat[/img/$file_list.name]]
	$file_stat_s[$file_stat.size]
	$file_length[^file_stat_s.length[]]
			^switch[$file_length]{ 
			^case[1]{$file_value[Байт]$file_stat_s_m[$file_stat_s]}
			^case[2]{$file_value[Байт]$file_stat_s_m[$file_stat_s]}
			^case[3]{$file_value[Байт]$file_stat_s_m[$file_stat_s]}
			
			^case[4]{$file_value[КБайт]$file_stat_s_m(^eval($file_stat_s/1000)[%.0f])}
			^case[5]{$file_value[КБайт]$file_stat_s_m(^eval($file_stat_s/1000)[%.0f])}
			
			^case[6]{$file_value[МБайт]$file_stat_s_m(^eval($file_stat_s/1000000)[%.0f])}
			^case[7]{$file_value[МБайт]$file_stat_s_m(^eval($file_stat_s/1000000)[%.0f])}			
			}
<A href="/img/$file_list.name" title="Обои для рабочего стола">$image_param.width x $image_param.height, $file_stat_s_m $file_value</A><BR>
}

В связи с этим два вопроса:

1. Насколько такой код является оптимальным, как можно это реализовать с меньшими затратами?

2. Что нужно сделать, чтобы дробная часть размера файла отделялась от целой не точной, а запятой?

---