slette.pl (jonas skript)

gistfile1.txt

#!/usr/bin/perl

#
# Takk Jonas :)
#

use strict;
use File::Path;

my $folder=$ARGV[0];
my $antall = 1;


opendir (DIR,$folder);
my @dirs = readdir(DIR);
my %re_hash;

foreach my $ret_re (@dirs){
    if (-f $folder . "/" . $ret_re && $ret_re =~ m/^[^\.]/){
      $re_hash{$ret_re} = (stat($folder . "/" . $ret_re ))[9];
    }
}

closedir(DIR);

foreach my $fil ( sort { $re_hash{$b} <=> $re_hash{$a} } keys %re_hash) {
  if ($antall-- < 0){
    unlink $folder . "/" . $fil;
  }   
}

13:53 jeg forstår ikk hva den koden der gjer
13:53 va?
13:53 slette.pl ?
13:53 ahh
13:53 ja
13:53 joda
13:54 først lager man seg en hash av filnavn og timestamps
13:54 så looper man gjennom de $antall filer som skal beholdes
13:54 og sletter resten