사람들이 rename
명령에 대해 언급하는 것을 보았지만 Unix 시스템에서는 일상적으로 사용할 수 없습니다 (리눅스 시스템이나 Cygwin과 달리 두 가지 모두에서 rename은 스크립트가 아닌 실행 파일 임). 해당 버전의 rename
기능은 상당히 제한적입니다.
rename from to file ...
파일 이름 의 from 부분을 to로 대체하며 man 페이지에 제공된 예는 다음과 같습니다.
rename foo foo0 foo? foo??
이렇게하면 foo1이 foo01로, foo10이 foo010으로 이름이 바뀝니다.
나는 rename
1992 년경 초판 Camel 책에서 뽑아 낸 Perl 스크립트를 사용하여 파일 이름을 변경했습니다.
#!/bin/perl -w
#
# @(#)$Id: rename.pl,v 1.7 2008/02/16 07:53:08 jleffler Exp $
#
# Rename files using a Perl substitute or transliterate command
use strict;
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.7 $ ($Date: 2008/02/16 07:53:08 $)';
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";
}
}
이를 통해 파일 이름을 매핑하기위한 Perl 대체 또는 음역 명령을 작성할 수 있습니다. 요청 된 특정 예에서 다음을 사용합니다.
rename 's/^/new./' original.filename