#!/usr/bin/perl -w
# zobrazi stromovu strukturu aktualneho adresara. 
# vnaranie sa znazorni poctom medzier na zaciatku riadku

&zpracujSubory(".","");

sub zpracujSubory {
	my ($adresar,$medzery)= @_;
	my (@subory,$meno,$cesta);
	if (not opendir(ADR,$adresar)) {
	    print STDERR "neda sa otvorit $adresar \n";
	    return 0;
	}
	@subory = readdir(ADR);
	closedir(ADR);

	foreach	$meno (sort @subory) {
		if ( $meno =~ /^\./ ) {next;}
		$cesta = $adresar ."/".$meno;
		if ( -d $cesta ) {
		   print "$medzery$meno/\n";
		   &zpracujSubory($cesta,$medzery." " );
		}else { print "$medzery$meno\n"; }
	}
}
