2

このパターン「clip-%4d.png」に従って、ffmpeg を使用してビデオからクリップを抽出しました。

これにより、次のようなファイルが生成されました:clip-0001.pngなどclip-0002.png。

次に、これらの写真に imagemagick の「変換」を使用して多くのフィルターを適用し、数時間実行しました。

の後にリストの順序が壊れていることに気付き、から までclip-9999.pngになり、クリップのシーケンスが正常に破棄されました。clip-10000.pngclip-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/'

名前にはスペースが含まれていないため、どちらも機能します。心配するスペースがある場合は、-only バリアントを使用しfindてください。これは、少し注意すれば他の回答にも適用できます。find+find

この Perl スクリプトは 10,000 回実行する必要がないため、ファイルの名前を変更するたびmvに実行されるシェル スクリプトよりも優れている可能性があります。mv1 回限りの演習では、これは問題にならないかもしれませんが、100,000 を超えるクリップに到達すると、より大きな問題になります。

また、以下のスクリプトにはファイル名を 1 行に 1 つずつ読み取るオプションがありますが、ファイル全体をメモリに丸呑みするため、それほど効率的ではありません (ただし、スクリプトの元のバージョンには存在し、保持されています。私はほとんどこのオプションを使用したことがありませんが)。まともな最新のマシン (たとえば 1 GiB のメモリで十分ですが、それ以下で十分) を想定すると、それぞれの長さが 12 文字の名前が 10,000 個だけあれば問題にはなりません。したがって、次も使用できます。

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

Perl ベースのrenameスクリプト

renamePerl ベースのコマンドを持っていない場合は、これを使用します。もともとはキャメルブックの第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";
    }
}
于 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にあります。UNIXの他のフレーバーにはawkを使用できます。

于 2013-02-19T07:09:23.957 に答える