App::RegexFileUtils - use regexes with file utils like rm, cp, mv, ln
Remove all files with a .bak extension:
% rerm '/\.bak$/'
Change the extension of all files from .jpeg or .JPG (any case) to .jpg
% remv '/\.jpe?g$/.jpg/i'
Copy all Perl files to a different directory:
% recp '/\.p[lm]$/' /perl/lib
Create symlinks to .so files so that the symlinks lack a version number
% reln -s '/\.so\..*$/.so/'
This distribution provides a version of
ln with a re (as in regular expression) prefix where the file sources can be specified as a regular expression, or the file source and destination can be specified as a regular expression substitution Perl style. The functionality that this provides can be duplicated with shell syntax (typically for loops), but I find these scripts require less typing and work regardless of the shell you are using.
The scripts in this distribution do not remove, copy, move or link files directly, instead they call the real
ln programs provided by your operating system. You can therefore use any options that they support, for example the
-i option will allow you to interactively delete files:
% rerm -i '/\.bak$/'
In addition to any options supported by the underlying operating system, these scripts will recognize the following options (and NOT pass them to the underlying system utilities). They are prefixed with
--re so that they do not interfere with any "real" options.
Specifies the command to execute. This is usually determined by Perl's $0 variable.
Print out the system commands that are actually executed.
Include even hidden dot files, like
These commands can also be invoked from your Perl script, using this module:
App::RegexFileUtils->main( $program, @arguments )
use App::RegexFileUtils; App::RegexFileUtils->main( 'rm', '/\.bak$/' );
You will need to enclose many regular expressions in single quotes '' on the command line as many regular expression characters have special meanings in shells.
The underlying fileutils command (rm, cp, ln, etc) will be called for each file operated on, which may be slow if many files match the regular expression provided.
This was written a long time ago and the code isn't very modern.
Directories with a training slash may be ambiguous with a regex, so if you want to use a path as a destination instead of a regex, be sure you do NOT include the trailing slash. That is:
# use this: % recp /^foo/ /usr/bin # NOT this: % recp /^foo/ /usr/bin/
This distribution comes bundled with
touch from the Perl Power Tools project. These are only used if the operating system does not provide these commands. This is normally only the case on Windows. They are individually licensed separately.
This program is copyright by Ken Schumack 1999.
This program is free and open software. You may use, modify, distribute and sell this program (and any modified variants) in any way you wish, provided you do not restrict others from doing the same.
This program is copyright by Abigail 1999.
This program is free and open software. You may use, copy, modify, distribute, and sell this program (and any modified variants) in any way you wish, provided you do not restrict others from doing the same.
Copyright (c) Steve Kemp 1999, firstname.lastname@example.org
This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version.
This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
This program is copyright by Abigail 1999.
This program is free and open software. You may use, copy, modify, distribute and sell this program (and any modified variants) in any way you wish, provided you do not restrict others to do the same.
Graham Ollis <email@example.com>
This software is copyright (c) 2012 by Graham Ollis.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.