如何解决在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 $_;
}
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。