Re^3: Using -mtime in File::Find::Rule seems to fail on Windows

Sorry. I'm not a F::F::R user. However a quick look at the docs suggests that

    ->mtime( '<= 1 ' )
[download]

should do the trick.

Examine what is said, not who speaks.

"Efficiency is intelligent laziness." -David Dunham
"Think for yourself!" - Abigail
"Memory, processor, disk in that order on the hardware side. Algorithm, algoritm, algorithm on the code side." - tachyon

Comment on Re^3: Using -mtime in File::Find::Rule seems to fail on Windows Download Code

Replies are listed 'Best First'.
Re^4: Using -mtime in File::Find::Rule seems to fail on Windows by neniro (Priest) on Jul 20, 2004 at 14:24 UTC
I found an example at the Perl-Advent-Calendar. It uses unix-time in seconds. I've changed my script and it works fine now. `#!/usr/bin/perl use strict; use warnings; use Data::Dumper; use Date::Calc qw/ Time_to_Date /; use File::Find::Rule; my $yesterday = time()-(1246060); 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;` [download] Thanks in advance, neniro	[reply] [d/l]

Replies are listed 'Best First'.

Re^4: Using -mtime in File::Find::Rule seems to fail on Windows
by neniro (Priest) on Jul 20, 2004 at 14:24 UTC

Perl-Advent-Calendar

#!/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;
[download]

[reply]
[d/l]