在linux上修复了几千个文件名

Question

我使用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实用程序可以解决我的问题;但是我自己对正则表达式很不熟悉。

Answer 1

在bash中使用此命令：

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

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

Answer 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。

Answer 3

使用基于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 - 仅变体，假设您的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/'

---

基于Perl的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";
    }
}

Answer 4

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