Rerunning
This commit is contained in:
parent
44822071b3
commit
77cc7e8ffa
3 changed files with 16 additions and 2 deletions
|
@ -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]);
|
||||
|
||||
|
|
BIN
everything.stor
BIN
everything.stor
Binary file not shown.
12
resetjobstats.pl
Executable file
12
resetjobstats.pl
Executable 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';
|
Loading…
Add table
Reference in a new issue