특정 날짜 이전 파일 삭제

#!/usr/bin/perl -w

use strict;

use POSIX;

use File::Find;

MAIN:

{

    if (! @ARGV) {

        print "Usage: $0 full_dir\n";

        print "Usage: $0 /Backup\n";

        POSIX::_exit(0);

    }

    my $dir = $ARGV[0];

    # 혹시모를 삑사리 대비

    if ($dir ne "/Backup") {

        exit;

    }

    my $unix_stmp = time;

 

    my $difftime = $unix_stmp - (86400 * 30);

    find(\&print_if_file, $dir);

    sub print_if_file {

        if( -f $_ ) {

            if ($File::Find::name =~ /\d.+\.\d.+$/) {

                my $filetime = (stat($File::Find::name))[9];

                if ($filetime <  $difftime) {

                    my $cmd = "rm -rf $File::Find::name";

                    `$cmd`;

                }

            }

        }

    }

}