A utility to mark and operate on files in the shell.
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.

38 lines
531 B

#!/usr/bin/env perl
=head1 NAME
marks-remove - remove files from the current set of marked files
marks-remove: removes filesystem paths from the mark list
marks remove path_to_mark
marks remove foo.txt
=head1 AUTHOR
Brennen Bearnes
use warnings;
use strict;
use 5.10.0;
use App::MarkFiles qw(remove);
use Cwd qw(cwd abs_path);
use Getopt::Long;
use Pod::Usage;
help => sub { pod2usage(0) },
) or pod2usage(2);
remove(map { abs_path($_) } @ARGV);