2

我使用 ffmpeg 从视频中提取剪辑，遵循此模式“clip-%4d.png”。

这产生了类似的文件：clip-0001.png，clip-0002.png等等。

然后，我对这些图片应用了许多带有 imagemagick“转换”的过滤器，它运行了几个小时。

我意识到我的列表顺序在 之后被破坏了clip-9999.png，它变成clip-10000.png了clip-40000.png，成功地破坏了我的剪辑序列。

我想将我所有的剪​​辑转换为遵循序列clip-00000.png，clip-00001.png最多clip-40000.png.

我可以使用模式 'clip-%5d' 重新启动整个过程，但我被告知rename实用程序可能会解决我的问题；但是我自己对正则表达式很陌生。

4

4 回答 4

5

在 bash 中使用此命令：

for file in clip-????.png ; do
    mv ${file} clip-0${file#clip-}
done

要检查该命令是否正确，请将“mv”替换为“echo mv”以查看将要完成的重命名列表。

于 2013-02-19T07:02:15.170 回答
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.

于 2013-02-19T07:03:35.817 回答
2

使用基于 Perl 的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-only 变体，假设您find支持 POSIX 2008+表示法到find. 这可以应用于任何其他答案，但要小心。

我注意到这个 Perl 脚本避免了必须执行mv10,000 次，因此它可能超过mv为每个文件重命名执行的任何 shell 脚本。对于一次性练习，这可能无关紧要，但当您获得超过 100,000 个剪辑时，它就会成为一个更大的问题。

此外，下面的脚本具有读取文件名的选项，每行一个，但它会将整个文件名吞入内存，效率不高（但存在于脚本的原始版本中并已保留，即使虽然我几乎没有使用过这个选项）。假设一台正常的现代机器（比如 1 GiB 的内存，但更少的内存就足够了），这不会成为一个问题，只有 10,000 个名称，每个名称长度为 12 个字符。所以你也可以使用：

find . -name 'clip-????.png' -print | rename 's/(\d{4})/0$1/'

基于 Perl 的rename脚本

如果您没有基于 Perl 的rename命令，我会使用这个。它最初来自骆驼书的第一版，但多年来已经进行了一些修改：

#!/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";
    }
}
于 2013-02-19T07:06:11.497 回答
0

你可以在这里查看：

您可以将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。

于 2013-02-19T07:09:23.957 回答