在Linux中根据[重命名]模式重命名许多文件

% rename \'s/_/-/g\' *
% rename \'s/(\\p{Lower})(\\p{Upper})/$1 $2/g\' *

 % rename \'s/\\s//g\' *
 % rename \'s/\\v//g\' *

usage: /home/tchrist/scripts/rename [-ifqI0vnml] [-F file] perlexpr [files]
    -i          ask about clobbering existent files
    -f          force clobbers without inquiring
    -q          quietly skip clobbers without inquiring
    -I          ask about all changes
    -0          read null-terminated filenames
    -v          verbosely says what its doing 
    -V          verbosely says what its doing but with newlines between old and new filenames
    -n          don\'t really do it
    -m          to always rename
    -l          to always symlink
    -F path     read filelist to change from magic path(s)

s///

rename

  \"rename\" renames the filenames supplied according to the rule specified as the first argument.  The perlexpr argument is a Perl expression which is expected to modify the $_ string in Perl for at least some of the filenames
  specified.  If a given filename is not modified by the expression, it will not be renamed.  If no filenames are given on the command line, filenames will be read via standard input.

  For example, to rename all files matching \"*.bak\" to strip the extension, you might say

          rename \'s/\\.bak$//\' *.bak

  To translate uppercase names to lower, you\'d use

          rename \'y/A-Z/a-z/\' *

renameutils

$ sudo apt-get install renameutils

$ qmv

for f in *v9.zip; do echo mv \"${f}\" \"${f%v9.zip}.zip\"; done

for f in *_*; do echo mv \"${f}\" \"${f//_/-}\"; done

#!/usr/bin/perl
# -w switch is off bc HERE docs cause erroneous messages to be displayed under
# Cygwin
#From the Perl Cookbook, Ch. 9.9
# rename - Larry\'s filename fixer
$help = <<EOF;
Usage: rename expr [files]

This script\'s first argument is Perl code that alters the filename 
(stored in \\$_ ) to reflect how you want the file renamed. It can do 
this because it uses an eval to do the hard work. It also skips rename
calls when the filename is untouched. This lets you simply use 
wildcards like rename EXPR * instead of making long lists of filenames.

Here are five examples of calling the rename program from your shell:

% rename \'s/\\.orig$//\'  *.orig
% rename \'tr/A-Z/a-z/ unless /^Make/\'  *
% rename \'$_ .= \".bad\"\'  *.f
% rename \'print \"$_: \"; s/foo/bar/ if <STDIN> =~ /^y/i\'  *
% find /tmp -name \'*~\' -print | rename \'s/^(.+)~$/.#$1/\'

The first shell command removes a trailing \".orig\" from each filename.

The second converts uppercase to lowercase. Because a translation is
used rather than the lc function, this conversion won\'t be locale-
aware. To fix that, you\'d have to write:

% rename \'use locale; $_ = lc($_) unless /^Make/\' *

The third appends \".bad\" to each Fortran file ending in \".f\", something
a lot of us have wanted to do for a long time.

The fourth prompts the user for the change. Each file\'s name is printed
to standard output and a response is read from standard input. If the
user types something starting with a \"y\" or \"Y\", any \"foo\" in the 
filename is changed to \"bar\".

The fifth uses find to locate files in /tmp that end with a tilde. It 
renames these so that instead of ending with a tilde, they start with
a dot and a pound sign. In effect, this switches between two common 
conventions for backup files
EOF

$op = shift or die $help;
chomp(@ARGV = <STDIN>) unless @ARGV;
for (@ARGV) {
    $was = $_;
    eval $op;
    die $@ if $@;
    rename($was,$_) unless $was eq $_;
}