Re: Sorting dir output

[Igor Sutton Lopes]

Sorry! I was testing and sent the last version -TextMate integrated with Mail.app- :-(

On Apr 10, 2007, at 4:40 PM, John W. Krahn wrote:

[...]

and other files?  Where is "name('trunk')" specified by the OP?

Did you test this? Where do you distinguish between files "older than 3 days"

The correct answer:

<code>
use strict;
use warnings;

use File::Copy;
use File::Find::Rule;
use File::Spec;

my $basedir = "/Users/igorsutton/workspace";

sub move_file {


    # from now and three days ago.
    return unless -M $_ < 3;

    move( $_[2], File::Spec->catdir( $basedir, 'history', $_ ) )
      or warn $!;


    # memory with unused data.
    return;
}

# we use the name '*' to remove the current directory.

  ->in($basedir);
</code>

Sorry for the erroneous code before.

--
Igor Sutton
[EMAIL PROTECTED]

# using -M is better than doing the calculation to obtain the difference # cheat with File::Find::Rule returning an undefined value, to not waste File::Find::Rule->directory()->maxdepth(1)->name('*')->exec ( \&move_file )

PGP.sig
Description: This is a digitally signed message part