আমি লোককে একটি renameকমান্ড উল্লেখ করতে দেখেছি , তবে এটি ইউনিক্স সিস্টেমে নিয়মিতভাবে পাওয়া যায় না (যেমন লিনাক্স সিস্টেমগুলির বিপরীতে, বলুন বা সাইগউইন - যার উভয়টিতেই নাম বদলে একটি স্ক্রিপ্টের পরিবর্তে কার্যকর করা যায়) is এই সংস্করণটির renameমোটামুটি সীমাবদ্ধ কার্যকারিতা রয়েছে:
rename from to file ...
তা পরিবর্ত থেকে সঙ্গে ফাইলের নাম অংশ থেকে , এবং উদাহরণ man পৃষ্ঠা দেওয়া হল:
rename foo foo0 foo? foo??
এটি foo1 কে foo01, এবং foo10 থেকে foo010 ইত্যাদির নামকরণ করে etc.
আমি পার্ল স্ক্রিপ্ট নামে একটি স্ক্রিপ্ট ব্যবহার করি rename, যা আমি প্রথমবারের মতো প্রথম সংস্করণ উট বইয়ের কাছাকাছি থেকে বেরিয়ে এসেছিলাম, নাম 1992, এবং তারপরে প্রসারিত করে, ফাইলগুলির নাম পরিবর্তন করতে।
#!/bin/perl -w
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";
}
}
এটি আপনাকে ফাইলের নামের মানচিত্রের জন্য কোনও পার্ল বিকল্প বা লিখিত লিখিত লিখিত লিখিত লিখিত অনুমতি দিতে পারে। অনুরোধ করা নির্দিষ্ট উদাহরণে আপনি ব্যবহার করতে পারেন:
rename 's/^/new./' original.filename