I have been happily playing with perl6. This code opens with the corresponding program and asks for deletion of files with a defined pattern and extension. For example:

$ Files perl pdf

Open the pdf files that have 'perl' in the name and asks for deletion. Available in github

#!/usr/bin/env perl6
# Reads files in the form of pattern.extension and asks for deletion

# Modules {{{
use v6;
use IO::Glob;
# }}}

# Variables {{{

# Program associated to extension
my %exe = 
    'pdf'    => 'mupdf',
    'PDF'    => 'mupdf',
    'txt'    => 'less',
    'odt'    => 'lowriter',
    'doc'    => 'antiword',
    # Exolore using docx2txt
    'docx'    => 'lowriter',
    # Explore using feh and delete with ctrl-del
    'JPG'    => 'xv',
    'jpg'    => 'xv',
    'png'    => 'xv',
    'flv'    => 'mpv',
    'vimbackup' => 'gvim'
;

# extensions 
my @extensions = %exe.keys;

# }}}

# sub main {{{
sub MAIN($pattern is rw, $ext) {
    die "The extension '$ext' has not been defined" unless $ext ~~ @ex
+tensions.any; 
    
    # variables {{{
    $pattern = "*" if $pattern eq "all";
    my $program = %exe{$ext};
    my @files = glob("*$pattern*.$ext");
    # }}}

    # Read and Delete Files {{{
    for @files -> $file {
        my @args = $program, $file;
        my $command = run @args;
        $command.exitcode == 0 or die "system @args failed: $!";
        my $delete = prompt("\n \n Delete file $file (s/n) ");
        last if $delete eq "";
        next if $delete ne "s";
        say "mv $file /tmp/$file";
        my $io = IO::Path.new($file);
        $io.rename("/tmp/$file");
        prompt("\n Press 'return' to continue ");
    }
    # }}}

    # Exit and list files {{{
    @files = glob("*.$ext");
    say "-" x 60;
    for @files -> $file {say "$file ";}
    say "-" x 60;
    # }}}
}
# }}}

# sub usage {{{
sub USAGE () {
    say "USAGE:\n Files regex/all [ @extensions ]";
}
# }}}

[download]

In reply to [perl6] Open "regex.ext" file with corresponding program and ask for deletion by mimosinnet

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.