#!/usr/bin/perl

use File::Find;
use Win32;

open(FILE,">elenco.csv") || die "Non riesco a aprire il file elenco.csv: $!";

print FILE "Dir;DataA;DataM;Dimensione;Tipo;Nome\n";

@dir_in_cui_cercare=(".");
find(\&azioni,@dir_in_cui_cercare);

sub azioni{
        my $tipo=F;
        ($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime, $mtime, $ctime, $blksize, $blocks) = 
        stat $_;
        $tipo="D" if(-d $_);
        $atime=data($atime);
        $mtime=data($mtime);
        
        print FILE "$File::Find::dir;$atime;$mtime;$size;$tipo;$_\n" 
        if($_ ne "elenco.exe" and $_ ne "." and $_ ne "..");
}


close FILE;
Win32::MsgBox("Creato il file con elenco denominato elenco.csv",OK,"Creazione File");

sub data{
        my $data=shift;
        $data=localtime($data);
        my ($g1,$m,$g2,$h,$a)=split(/ /,$data);
        %mese=(   
        Gen=>'01',
        Feb=>'02',
        Mar=>'03',
        Apr=>'04',
        May=>'05',
        Jun=>'06',
        Jul=>'07',
        Aug=>'08',
        Sep=>'09',
        Oct=>'10',
        Nov=>'11',
        Dec=>'12');
        $data=$a." ".$mese{$m}." ".$g2." ".$h;
        return $data;
}