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
父节点
3c4fb51a97
当前提交
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('-'); |
||||
} |
||||
|
文件差异内容过多而无法显示
加载差异
文件差异因一行或多行过长而隐藏
正在加载...
在新工单中引用