#!/usr/bin/perl -w $head=" rmrmg- galeria "; # avatar $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 " \"$full\"\n"; } print HTML "\n"; if ($mfilms[0]) { print HTML "

Filmy:\n
"; } foreach (@mfilms) { @film=split(/\n/, $_); $full=$film[0]; print HTML " $full\n"; } print HTML "

up
\n"; print HTML "$end\n";