#!/usr/bin/perl

use strict;
use warnings;

use lib '../..' ;

use File::Copy;
use File::Find;
use File::Path;
use File::Stat;

my $root_dir = find_root_dir(); 
our $prefix;


sub wanted {
    my ($file)=$_;

    return if -d $file;

    return if $File::Find::dir ne $root_dir;

    my $dir_to_make = categorize($file);

    File::Path::make_path($dir_to_make);

    File::Copy::move($file, $dir_to_make);

}

sub find_root_dir {

    use Local::Config;
    Local::Config->new->logdir;

}
 
sub categorize {

    my($file)=@_;

    my $stat = File::Stat->new($file);
    #substr($file, 0, 5);

    use DateTime;
    my $dt = DateTime->from_epoch(
                  epoch => $stat->mtime,
                  time_zone => 'EST'
                 );
    
    my $path = $dt->ymd('/');
    $path   .= "/" . $dt->hour;

    $path;

}

File::Find::find(\&wanted, $root_dir);




# thanks to jhannah in #perl-help



[download]