Slette filer der er over 3 dage gamle

Jeg har lige hurtigt lavet og testet følgende, men du må nok hellere selv teste det på noget mindre vigtigt data først :)

#!/usr/bin/perl -w
use strict;

if ($#ARGV == 1) {
    my $now = time();
    if (substr($ARGV[0], length($ARGV[0])-1, 1) ne "/") { $ARGV[0] .= "/"; }
    opendir(DIR, $ARGV[0]) or die $!;
    while (my $filename = readdir(DIR)) {
    if ($filename ne "." && $filename ne "..") {
        my $mtime = (stat($ARGV[0] . $filename))[9];
        if (int(($now - $mtime) / 86400) > $ARGV[1]) {
        print "Deleting: " . $filename . "\n";
        unlink $ARGV[0] . $filename;
        }
    }
    }
    closedir(DIR);
} else {
    print "Usage: ./script.pl <directory> <days>\n";
}

abpdk: Ville det ikke være nemmere i stedet for at have "if (substr($ARGV[0], length($ARGV[0])-1, 1) ne "/") { $ARGV[0] .= "/"; }" at så have "if ($ARGV[0] =~ m/\/$/) { $ARGV[0] .= "/"; }"?

putteand>> Det ser godt nok meget smart ud, men hvorvidt det er nemmere kan jo diskuteres. Det kan godt være at den med substr er lidt langsomere (jeg ved det ikke), men personligt finder jeg den nemmere at forstå og desuden skal linjen jo kun eksekveres én gang, så evt. optimering ville nok gavne mere inde i while-løkken.

ser ud til at virke