also removed unnecessary other directories from backup script, added desktop to exclude list (rationale: ~/Desktop is roughly as important as ~/tmp, which is excluded)pull/1/head
Parent
3c4fb51a97
révision
847ad2ac80
|
@ -0,0 +1,29 @@ |
||||
#!/usr/bin/perl |
||||
|
||||
use warnings qw( all ); |
||||
use strict; |
||||
use DateTime; |
||||
use Data::Dumper; |
||||
|
||||
main(); |
||||
|
||||
sub main { |
||||
my $days; |
||||
while(<>) { |
||||
chomp; |
||||
my @parts = split(/\,/); |
||||
my $dt = DateTime->from_epoch( epoch => $parts[0] ); |
||||
$dt = dt2ymd($dt); |
||||
print STDERR "setting $dt to " . $parts[1] . "\n"; |
||||
$days->{$dt} = $parts[1] + 0; |
||||
} |
||||
foreach (sort(keys(%$days))) { |
||||
print "$_," . $days->{$_} . "\n"; |
||||
} |
||||
} |
||||
|
||||
sub dt2ymd { |
||||
my $dt = shift; |
||||
return $dt->ymd('-'); |
||||
} |
||||
|
Fichier diff supprimé car celui-ci est trop grand
Load Diff
Diff de fichier supprimé car une ou plusieurs lignes sont trop longues
Chargement…
Référencer dans un nouveau ticket