#!/usr/bin/perl # Program w perl-u który tworzy stronę WWW z linkami do # plików w podkatalogach. Ta wersja jest wyspecjalizowana # na potrzeby zajęć: # - zawiera zaszyty tytuł # - zakłada że cała treść jest w podkatalogach use strict; use warnings; open(LIST, "LANG=C ls -R |"); sub pisz_tytul { my ($kat) = @_; print "Katalog $kat"; } # Program główny -- wypisanie nagłowka print < Programy przykładowe \n\n\n";