Thread Verzeichnisstrukturen älter als 30 Tage verschieben in ein Backup verschieben
(25 answers)
Opened by nastja at 2010-04-15 15:57
das ist mein Vollständiger Skript, mit File::Find, finde ich alle Elemente aus dem Ordner, also gehe ich von aus, das die Sache damit erledigt ist und die Methode von esskar sub dir, werde ich nicht mehr benötigen, oder??? Trotzdem danke esskar.....
Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 #!/usr/local/bin/perl use strict; use File::stat; use File::Find; use File::Copy; my $dir ='C:/Users/cthdev34/Desktop/map'; my $bakupdir = 'C:/Users/cthdev34/Desktop/map/bakup'; my @sortFiles; #Elemente älter als 30 Tage my @dirs; #alle Ordner my @fils; #alle Dateien my $st; my $logFile = "$dir/Liste.txt"; my $inum_Tage = 30; #&cd($dir); find(\&sort,$dir); foreach(@dirs){print "Ordner:",$_,"\n";} foreach(@fils){print "Datei:",$_,"\n";} foreach(@sortFiles){print "Sortiert:", $_,"\n";} find(\&liste,$dir); #ALLE ORDNER #****************************************************************************** sub sort { my $file = $File::Find::name; push(@dirs,$file) if (-d $file); push(@fils, $file) if (-f $file); push(@sortFiles,$file) if ( -M $file > $inum_Tage); } #ELEMENTE ÄLTER ALS X TAGE #****************************************************************************** # sub sortierung { # my $file = $File::Find::name; # push(@allFiles,$file) if ( -M $file > $inum_Tage); #} #LOGDATEI #****************************************************************************** sub liste{ open(LOGFILE,">$logFile") or die $!; print LOGFILE "\t\t\t$dir\n"; print LOGFILE "\t\t*****************************************************\n\n"; foreach(@sortFiles){ foreach(@dirs){print LOGFILE "Ordner:",$_,"\n"; } #??????????? $st = stat($_); print LOGFILE "$_ \n\n \t\t\tGröße:",printable_size($st->size),"\t", "Änderungsdatum:",printable_time($st->mtime),"\n\n\n"; } close(LOGFILE); } sub printable_time { my $time = shift; return $time if $time !~ /^\d+$/; my (undef,$min,$hour,$mday,$mon,$year) = localtime($time); return sprintf "%02d.%02d.%04d %02d:%02d", $mday,$mon+1,$year+1900,$hour,$min; } sub printable_size { my $size = shift; return $size if $size !~ /^\d+$/; my $suffix = 'B'; foreach (qw(KB MB GB)) { last if $size < 1000; $size /= 1024; $suffix = $_; } my $format = ($suffix eq 'B' ? "%d " : "%.2f ").$suffix; return sprintf $format, $size; } foreach (@sortFiles){ Move($_,$bakupdir); } #foreach (@all){ #rmdir $_ if (-d $_); #} #STRUKTUR VON DIREKTORYS ERZEUGEN #***************************************************************************** sub Move { my ($dir_file, $bakup) = @_; my @dirs = split '/', $dir_file; my $file = pop @dirs; foreach (@dirs) { next if -d $bakup; mkdir($bakup) or print("Can't create dir $bakup: $!"),return undef; } rename($dir_file, "$bakup/$file") or print("Can't move $dir_file to $bakup: $!"),return undef; return 1; } //Modedit GwenDragon: Perl in CODE-Tags gestellt Last edited: 2010-04-15 18:09:57 +0200 (CEST) |