Tools for modeling links between files / URLs / etc.
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 

29 lines
413 B

#!/usr/bin/env perl
use warnings;
use strict;
use 5.10.0;
use App::MarkFiles;
use File::Copy;
my @unmark;
App::MarkFiles::each(sub {
my ($mark) = @_;
my $path = $mark->{path};
unless (-e $path) {
say "No such file: " . $path;
return;
}
if (move($path, './')) {
say "Moved: $path";
push @unmark, $path;
} else {
say "Move failed: $!"
}
});
App::MarkFiles::unmark(@unmark);