[英]how to change names of all directories / files containing a specific string on linux
我有一個目錄,我想將其下的所有目錄名稱和文件更改為不同的名稱。 例如我的目錄結構是
./mydir_ABC/
./mydir_ABC/myfile_ABC.txt
./mydir_ABC/otherdir_ABC/
例如,我想做到
./mydir_DEF/
./mydir_DEF/myfile_DEF.txt
./mydir_DEF/otherdir_DEF/
我在用
find . -type 'f' -name '*ABC*'
find . -type 'd' -name '*ABC*'
獲取名稱中包含我的字符串的所有相關目錄和文件的列表。 我如何將 pipe 轉換為另一個實際更改目錄名和文件名的命令? (如果文件或目錄已經存在,我希望它能夠覆蓋。)
mkdir z; cd z; touch fooabcbar; touch fooABCbar
find . -type 'f' \( -name '*ABC*' -o -name '*abc*' \) | while read f; do g=`echo "$f" | sed -e 's/abc/def/g' -e 's/ABC/DEF/g'`; echo mv -- "$f" "$g"; done
只要路徑名不包含換行符(非常罕見)。
查找rename(1)
命令。 它有一些不同的變體,但它們都支持基於某種正則表達式的某種重命名。 我使用的版本(基於 Perl 'Camel Book' 第一版的代碼)將用作:
rename 's%ABC%DEF%g' ...
或者,對於您的示例:
find . -print0 | xargs -0 rename s/ABC/DEF/g
或者,為了避免在遍歷目錄結構時路徑名發生更改的問題,請先執行目錄名,然后是文件(如問題所示):
find . -type d -print0 | xargs -0 rename s/ABC/DEF/g
find . -type f -print0 | xargs -0 rename s/ABC/DEF/g
像 go 那樣重命名目錄仍然可能存在問題(因為一旦將./DEF
./ABC
您就不能再將./ABC/subABC/
重命名為./DEF/subDEF
因為目錄現在是./DEF/subABC
)。
其他版本的rename
有不同的語法 - 請查看您的手冊頁。
這是基於 Perl 的rename
版本,源自 Perl 'Camel Book' 的第一版; 我在版本控制下的第一個版本的日期為 1992-01-05。 今天的更改更新了 shebang 行(使用 env,刪除-w
因為它不可靠,並添加了use warnings;
以彌補 no -w
)。 之前的變化是 2008 年、1998 年、1996 年和 1992 年; 在過去的 19 年里,它並沒有太大變化。
#!/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 個字符,這應該足夠好我認為:
mv *abc.* *def.*
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.