我使用ffmpeg从视频中提取剪辑，遵循此模式＆＃39; clip-％4d.png＆＃39;。
这产生了如下文件：clip-0001.png，clip-0002.png等等。
然后我使用了imagemagick＆＃34;转换＆＃34;那些照片，它跑了几个小时。
我意识到我的列表顺序在clip-9999.png后变为clip-10000.png并且最多为clip-40000.png，从而成功破坏了我的剪辑序列。
我想将我的所有剪辑转换为clip-00000.png，clip-00001.png至clip-40000.png的序列。
我可以使用模式＆＃39; clip-％5d＆＃39;重启整个过程，但我被告知rename实用程序可以解决我的问题;但是我自己对正则表达式很不熟悉。
答案 0 :(得分：5)
在bash中使用此命令：
for file in clip-????.png ; do
mv ${file} clip-0${file#clip-}
done
检查命令是否正常，将“mv”替换为“echo mv”以查看将要完成的重命名列表。
答案 1 :(得分：2)
你可以这样做：
for f in clip-[0-9][0-9][0-9][0-9].png; do mv $f `echo $f | sed 's/clip-/clip-0/'`; done
注意：要在不实际执行任何操作的情况下进行测试，请将mv替换为echo mv。
答案 2 :(得分：2)
rename命令如果你有一个基于Perl的rename命令，那很容易：
rename 's/(\d{4})/0$1/' *-????.png
我顺便提一下，如果你真的有大约10,000个剪辑要重命名，你可能需要使用xargs或find以避免'参数列表太长'的问题。
find . -name 'clip-????.png' -exec rename 's/(\{4})/0$1/' {} +
或：
find . -name 'clip-????.png' -print | xargs rename 's/(\d{4})/0$1/'
由于您的名字不包含空格，因此任何一个都可以。如果有空间需要担心，请使用find - 仅变体，假设您的find支持POSIX 2008 +符号find。这可以适用于任何其他答案。
我注意到这个Perl脚本避免了执行mv 10,000次，因此它可能超过为每个文件重命名执行mv的任何shell脚本。对于一次性练习，这可能无关紧要，但当你获得超过100,000个剪辑时，它将成为一个更大的问题。
此外，下面的脚本可以选择读取文件名，每行一个，但是它会将整个数据打入内存，这不是非常有效（但是在脚本的原始版本中存在并且已经存在保持，即使我几乎没有使用过这个选项）。假设一个理智的现代机器（比如1 GiB的内存，但是更少就足够了），那对于每个长度为12个字符的10,000个名称来说不会有问题。所以你也可以使用：
find . -name 'clip-????.png' -print | rename 's/(\d{4})/0$1/'
rename脚本如果您没有基于Perl的rename命令，那么这就是我使用的命令。它最初来自骆驼书的第1版，但多年来一直在修改：
#!/usr/bin/env perl
#
# @(#)$Id: rename.pl,v 1.8 2011/06/03 22:30:22 jleffler Exp $
#
# Rename files using a Perl substitute or transliterate command
use strict;
use warnings;
use Getopt::Std;
my(%opts);
my($usage) = "Usage: $0 [-fnxV] perlexpr [filenames]\n";
my($force) = 0;
my($noexc) = 0;
my($trace) = 0;
die $usage unless getopts('fnxV', \%opts);
if ($opts{V})
{
printf "%s\n", q'RENAME Version $Revision: 1.8 $ ($Date: 2011/06/03 22:30:22 $)';
exit 0;
}
$force = 1 if ($opts{f});
$noexc = 1 if ($opts{n});
$trace = 1 if ($opts{x});
my($op) = shift;
die $usage unless defined $op;
if (!@ARGV) {
@ARGV = <STDIN>;
chop(@ARGV);
}
for (@ARGV)
{
if (-e $_ || -l $_)
{
my($was) = $_;
eval $op;
die $@ if $@;
next if ($was eq $_);
if ($force == 0 && -f $_)
{
print STDERR "rename failed: $was - $_ exists\n";
}
else
{
print "+ $was --> $_\n" if $trace;
print STDERR "rename failed: $was - $!\n"
unless ($noexc || rename($was, $_));
}
}
else
{
print STDERR "$_ - $!\n";
}
}
答案 3 :(得分：0)
您可以查看here：
您可以使用
替换链接中的gsub(/-\(.*\)/,"",$0);命令
gsub(/-/,"-0",$0);
，ls -1部分将替换为ls -1 clip-????.png
您还需要删除awk命令中的搜索部分。
我在下面用一个示例文件进行了测试。
@jonathan ，我真的不明白你说的是什么。但下面是我做的测试：
> ls -1 clip-????.png
clip-0003.png
clip-1111.png
> ls -1 clip-????.png | nawk '{old=$0;gsub(/-/,"-0",$0);system("mv \""old"\" "$0)}'
phoenix.332> ls -1 clip-?????.png
clip-00003.png
clip-01111.png
> ls -1 clip-????.png
ls: No match.
nawk在solaris上。你可以将awk用于其他版本的unix。