Dosyaları ve Dizinleri Yeniden Adlandırma (Önek Ekle)

Tüm klasörlere ve dizinlere önek eklemek istiyorum.

Misal:

Sahibim

Hi.jpg
1.txt
folder/
this.file_is.here.png
another_folder.ok/

"PRE_" ön ekini eklemek istiyorum

PRE_Hi.jpg
PRE_1.txt
PRE_folder/
PRE_this.file_is.here.png
PRE_another_folder.ok/

Saygılarımızla,

Sayesinde Heijden der Peter van , burada onları boşluk olan dosya adları için çalışacağız biri:

for f in * ; do mv -- "$f" "PRE_$f" ; done

("-", adları aksi halde mv komutu için anahtar olarak yorumlanacak olan tire ile başlayan dosyalarda başarılı olmak için gereklidir)

Kullanım yeniden adlandırma Komut dosyasını bu şekilde:

$ rename 's/^/PRE_/' *

Dosya adlarında meta karakterler veya boşlukla ilgili bir sorun yok.

İçin önek veya sonek ekleyerek dosyaları (dizinleri) için, size göre basit ve güçlü bir yol kullanabilirsiniz Xargs :

ls | xargs -I {} mv {} PRE_{}

ls | xargs -I {} mv {} {}_SUF

Xargs parametresini değiştiren seçeneği kullanıyor: -I. Ve man sayfasından daha ayrıntılı bilgi edinebilirsiniz.

Bu basit bir findkomutla yapılabilir :

find * -maxdepth 0 -exec mv {} PRE_{} \;

Yukarıdaki komut, geçerli dizindeki tüm dosya ve klasörlerin önüne ek ekler PRE_.

Util-linux'ları rename( prenameDebian ve bazı diğer sistemlerin perl varyantının aksine) kullanarak geçerli dizindeki tüm dosya ve klasörlere önek eklemek için şunları yapabilirsiniz:

rename '' <prefix> *

Bu, boş dizenin ilk oluşumunu (hemen bulunur) bulur ve ardından bu oluşumu önekinizle değiştirir, daha sonra dosya adının geri kalanını bunun sonuna yapıştırır. Bitti.

Son ekler için perl sürümünü kullanmanız veya find kullanmanız gerekir .

Ruby'niz varsa (1.9+)

ruby -e 'Dir["*"].each{|x| File.rename(x,"PRE_"+x) }'

Perl ile:

perl -e 'rename $_, "PRE_$_" for <*>'

İşte kullanabileceğiniz basit bir komut dosyası. File::chdirYönetim cdişlemlerini işlemek için standart olmayan modülü kullanmayı seviyorum , bu nedenle bu komut dosyasını kullanmak için ( sudo cpan File::chdir) yüklemeniz gerekecek .

#!/usr/bin/perl

use strict;
use warnings;

use File::Copy;
use File::chdir; # allows cd-ing by use of $CWD, much easier but needs CPAN module

die "Usage: $0 dir prefix" unless (@ARGV >= 2);
my ($dir, $pre) = @ARGV;

opendir(my $dir_handle, $dir) or die "Cannot open directory $dir";
my @files = readdir($dir_handle);
close($dir_handle);

$CWD = $dir; # cd to the directory, needs File::chdir

foreach my $file (@files) {
  next if ($file =~ /^\.+$/); # avoid folders . and ..
  next if ($0 =~ /$file/); # avoid moving this script if it is in the directory

  move($file, $pre . $file) or warn "Cannot rename file $file: $!";
}

Sistemimde, renamekomuta sahip değilim . İşte basit bir astar. Tüm HTML dosyalarını özyineli olarak bulur ve prefix_adlarının önüne ekler :

for f in $(find . -name '*.html'); do mv "$f" "$(dirname "$f")/prefix_$(basename "$f")"; done

Bu, dosyalarınızı dizinlerine önek olarak ekleyecektir.

${f%/*}Geçen eğik çizgi kadar yolu /> dizin -

${f##*/}Geçen çizgiden önce bir şey olmadan metindir /yol olmadan> dosya adı -

İşte böyle:

for f in $(find /directory/ -type f); do 
  mv -v $f ${f%/*}/$(date +%Y%m%d)_Prefix_${f##*/}
done