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.
 
 

24 lines
341 B

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