in reply to Re^3: Using -mtime in File::Find::Rule seems to fail on Windows
in thread Using -mtime in File::Find::Rule seems to fail on Windows
Thanks in advance, neniro#!/usr/bin/perl use strict; use warnings; use Data::Dumper; use Date::Calc qw/ Time_to_Date /; use File::Find::Rule; my $yesterday = time()-(1*24*60*60); print $last_week, "\n"; my @files = File::Find::Rule->file() ->name( '*.doc' ) ->mtime( ">$yesterday" ) ->in( 'D:/Dokumentation/' ); @files = map { { name => $_, #modified => [Time_to_Date((stat($_))[9])], size => (stat($_))[7] } } @files; print Dumper \@files;
|
|---|