আমি লোককে একটি 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