#!/usr/bin/perl -w $head="
$end="
";
@minis=`ls ./minis`;
@mfilms=`ls ./*MOV ; ls ./*.mov`;
open (HTML, ">> index.html");
print HTML "$head\n";
foreach (@minis) {
$mini=$_; #miniaturka zdjecia
@minif=split('-', $_) ;#$_="mini-cos.jpg\n"
@mini=split(/\n/, $minif[1]); #$minif[1]="cos.jpg\n"
$full=$mini[0]; #pełna wersja
print HTML " Filmy:\n
";
}
foreach (@mfilms) {
@film=split(/\n/, $_);
$full=$film[0];
print HTML " $full\n";
}
print HTML "