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.

49 lines
654 B

#!/usr/bin/env perl
=head1 NAME
marks-ls - list the current set of marked files
marks-ls lists the current set of marked files
marks ls
# List files separated by NUL characters:
marks ls --print0
marks ls -0
=head1 AUTHOR
Brennen Bearnes
use strict;
use warnings;
use 5.10.0;
use App::MarkFiles qw(each_path);
use Getopt::Long;
use Pod::Usage;
my $print0;
help => sub { pod2usage(0) },
'print0|0' => \$print0,
) or pod2usage(2);
my $separator = "\n";
if ($print0) {
$separator = "\0";
each_path(sub {
my ($path) = @_;
print $path;
print $separator;