मैं आसानी से पर्ल के साथ फ़ाइलों का नाम कैसे बदल सकता हूं?

Question

मैं मैं नाम बदलने के लिए कोशिश कर रहा हूँ फ़ाइलों का एक बहुत कुछ है, मैं उन्हें मैच के लिए एक नियमित अभिव्यक्ति करने की कोशिश की है, लेकिन फिर भी है कि मैं फ़ाइलों पर अटक गया जैसे नाम हैं:

फ़ाइल नाम 01

फ़ाइल नाम 100

फ़ाइल नाम 02

फ़ाइल नाम 03

आदि, मैं चाहते हैं एक dd एक "0" (शून्य), फ़ाइल के किसी भी है कि कम से कम 100 कर रहे हैं, इस तरह के पीछे:

फ़ाइल नाम 001

फ़ाइल नाम 100

फ़ाइल नाम 002

फ़ाइल नाम 003

मिलान करने के रूप में मुझे जितना निकटतम मिला, यह खोज-प्रकार डी का उपयोग कर रहा था। sort -r | grep '[1-9] [0-9] $' हालांकि मैं यह नहीं समझ सका कि उन्हें कैसे बदला जाए। किसी भी मदद के लिए अग्रिम धन्यवाद जो आप मुझे दे सकते हैं। सेंटोस पर आईएम अगर यह किसी भी मदद की है, तो यह सब एसएसएच के माध्यम से किया जा रहा है।

Answer 1

perl -e 'foreach $f (glob("File\\ Name*")) { $nf = $f; $nf =~ s/(\d+)$/sprintf("%03d",$1)/e; print `mv \"$f\" \"$nf\"`;}' 

शायद थोड़ा अधिक हो सकता है, लेकिन यह पूछा जाता है।

Answer 2

मुझे लगता है कि mmv आपका मित्र यहां है।

Answer 3

find . -type d -print0 | xargs -0 rename 's/(\d+)/sprintf "%03d", $1/e' 

या ऐसा ही कुछ है, बशर्ते

1. आप है जीएनयू खोजने के लिए और जीएनयू xargs (-print0 और -0 के लिए)
2. आप 'नाम बदलें' उपयोगिता है कि पर्ल के साथ आता है
3. नहीं है है फ़ाइल नाम में अंकों का केवल एक समूह। यदि एक से अधिक हैं, तो आपको रेगेक्स के साथ कुछ करने की आवश्यकता है ताकि इसे केवल उस नंबर से मेल खाया जा सके जिसे आप सुधारना चाहते हैं।

Answer 4

भागो दो आदेशों में इस क्रम में:

$ rename 's/File Name (\d)$/File Name 0$1/' * 
$ rename 's/File Name (\d\d)$/File Name 0$1/' * 

पहले एक सब कुछ 10 से कम नाम बदलता है और एक शून्य पहले जोड़ता। दूसरा एक 100 से कम सब कुछ का नाम बदलता है और शून्य तैयार करता है। परिणाम सभी फ़ाइल नामों के लिए तीन अंक होना चाहिए।

Answer 5

आप पेर्ल या रूबी का उपयोग करके कुछ कर सकते हैं।

समान निर्देशिका

dirlisting = DIR.entries('.') 

dirListing.each do |file| 
num = file.match(/\d+$/).to_i 
if num < 100 
    find the position where start the number, with index and inject the 0 there. 
end 
end 

Answer 6

इस एक बार की बात है में यह सब फाइलों डाल? यदि ऐसा है, तो मैं ऐसा कुछ सुझाव देने जा रहा हूं जो कई प्रोग्रामर द्वारा यहां एक पुलिस प्रतीत होता है:

फ़ाइल में अपने आदेश (find -type d | sort -r | grep ' [1-9][0-9]$') के आउटपुट को पाइप करें और कुछ वैश्विक खोज/प्रतिस्थापन के साथ एक संपादक का उपयोग करें एक स्क्रिप्ट बनाने के लिए जादू जो नाम बदलता है।

फिर स्क्रिप्ट को फेंक दें।

थोड़ा सा झगड़ा और थोड़ा सा मौका है कि आप अपने चालाक (लेकिन अपर्याप्त रूप से डीबग किए गए) एक-लाइनर पर कुछ प्रयास करके पैर में खुद को शूटिंग कर देंगे।

Answer 7

use strict; 
use File::Copy; 

my @files = glob 'File*Name*'; 

foreach my $filename (@files) { 
    if ($filename =~ m`^.*File.*Name.*?(\d+)`) { 
     my $number = $1; 
     next if ($number > 99); 
     rename $filename, sprintf("FileName%03d",$number); 
    } 
} 

Answer 8

मेरे डेबियन में यह 300 फाइलों के साथ परीक्षण के साथ अच्छी तरह से काम करता है।

perl -e 'map `touch door$_.txt`, 1..300;' 
rename 's/(\d+)\.txt/sprintf("%03d.txt", $1)/e' *.txt 

Answer 9

for i in File*; 
do 
    case "${i##* }" in [0-9][0-9]) 
     echo mv "$i" "${i% *} $(printf "%03d" ${i##* })" ;; 
    esac; 
done 

निकालें "गूंज" वास्तविक नाम करने के लिए करता है, तो अपने रिमोट बैश खोल है