use strict; my $login_name = getlogin; #my $path = "C:\\Dokumente und 

use File::stat;

open (out,">file_count.csv"); 

print (out "Counts of files in a directory \n");

&funktAusgabe($path); 


close out;

sub funktAusgabe()
{
        
        my $zaehler=0;
        my $zaehler2= 0;
        my @ordner;
        my $anzDateien=0;
        my $anzDateien2=0;
        my $anzOrdner=0;
        my $local_time = localtime;
        
                
        
        my ($para1)=@_;
        
        opendir my $ordner,$para1;
        my @eintraege = readdir($ordner);
        
        
        
        
        foreach(@eintraege){
                opendir $ordner,$para1;
                
                if($zaehler>1){
                        my $var=$para1.$_."\\";
                        push(@ordner,&funktIstOrdner($var));
                        if($ordner[$zaehler-2]==0){$anzDateien++;}else{$anzOrdner++;}
                        # if($ordner[$zaehler-2]==0){$anzDateien++;}
                                        }
                
                $zaehler++;
                my $filesize=stat($para1.$_)->size;
                if($filesize>=1024){$anzDateien2++;}
        }
        
        
        $zaehler=0;
        
        foreach(@eintraege){
                opendir $ordner,$para1;
                
                $zaehler++;

        }
        
        print(out "$local_time".";"."$anzDateien".";"."$anzDateien2".";"."$para1\n");
        
        $zaehler=0;
        
        foreach (@eintraege)
        {
                opendir $ordner,$para1;
                
                my $var=$para1.$_."\\";
                
                if($zaehler>1&&$ordner[$zaehler-2]==1){&funktAusgabe($var);}
                $zaehler++;
        }
        
        $zaehler2++;
}


sub funktIstOrdner(){

        my $zaehler=0;
        my ($para1)=@_;
        
        opendir my $ordner,$para1;      
        my @eintraege = readdir($ordner);
        
        foreach (@eintraege)
        {
                print @eintraege[$zaehler];
                $zaehler++;
                if($zaehler>0){return 1;}
                
        }
        
        return 0;
}