Вот мой скрипт
Отображает список фильмов находящихся в данный момент в определенной директории.
Структура
Корневая директория
L Директория с русским названием
L Файл с английским названием
... Ну думаю разберетесь. Посмотрите, пожалуйста. Если где ошибся напишите.
#!c:\\perl\\bin\\perl
print "Content-Type: text/plain; charset=windows-1251\\n\\n";
print "";
print "";
print "";
print "
";
print "";
print "Список моих фильмов";
print "";
print "Русское название | Оригинальное название | Дата |
";
while ($nextname = )
{
opendir(PATH1,$nextname); # открывается подкаталог
$dirname=$nextname;
$s_dir=$nextname;
@s_f=stat("$s_dir");
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($s_f[10]); # берется дата создания
$dataa=time-$s_f[10]; # сколько времени прошло
$dataa=$dataa/24/60/60;
$name=readdir(PATH1); # "."
$name=readdir(PATH1); # ".."
$name=readdir(PATH1); # первый файл
$dirname=$dirname."/".$name;
$name1=$name;
chop($name);
chop($name);
chop($name);
chop($name); # отрезается ".avi"
$nextname =~ s#.*/##;
print "$nextname | $name | "; if ($dataa<7) { print "" }; $year -= 100; $mon++; $adate = sprintf("%02d.%02d.%02d",$mday,$mon,$year); print $adate; if ($dataa<7) { print "" }; print " | ";
};
print "
";
print "";
print "";