Rerunning

This commit is contained in:
Your Name 2017-04-01 21:33:07 -04:00
parent 44822071b3
commit 77cc7e8ffa
3 changed files with 16 additions and 2 deletions

View file

@ -4,5 +4,7 @@ use 5.24.0;
use Data::Dumper;
use Storable;
#$Data::Dumper::Terse = 1;
print Dumper([keys ((retrieve $ARGV[0])->%*)]);
print Dumper(retrieve $ARGV[0]);

Binary file not shown.

12
resetjobstats.pl Executable file
View file

@ -0,0 +1,12 @@
#!/usr/bin/env perl
use 5.24.0;
use Data::Dumper;
use Storable;
my $data = retrieve $ARGV[0];
$data->{jobstatus} = {};
store $data, $ARGV[0].'.new';