मुझे फ़ोल्डर फ़ाइल नामों का एक गुच्छा साफ़ करने की आवश्यकता है। संभवतः फ़ाइल के शीर्षक भी। मैं वर्तमान में ऐसा करने के लिए इस पर्ल स्क्रिप्ट का उपयोग कर रहा था लेकिन मैं कुछ समस्याओं में भाग गया।
- यदि फ़ाइल नाम में पहले से ही वर्ष के आसपास कोष्ठक है, तो यह एक और सेट जोड़ता है।
मैं शीर्षकों के साथ-साथ शीर्षकों में आम "हस्ताक्षरों" को हटाने के लिए एक पाठ फ़ाइल का उपयोग करना चाहूंगा।
This.Movie.Blah.(2012) [1080p] MP4
।वर्तमान में मैंने जो स्क्रिप्ट लिखी है, उसका
.
एक जगह के रूप में इरादा है और(xxxx)
वर्ष भर जोड़ता है । स्क्रिप्ट चलाना परिणाम होगाThis Movie Blah ((2012)) [1080p] MP4
।
इसके अलावा मैं उन "हस्ताक्षरों" को हटाना चाहूंगा जो कि फ़ाइल नाम से पाठ फ़ाइलों के मूल्यों (पंक्तिबद्ध, सीएसवी नहीं) से मेल खाते हैं इसलिए This.Movie.Blah.(2012) [1080p] MP4
वापस आ जाएंगेThis Movie Blah (2012)
use warnings;
use strict;
use File::Copy;
my $oldname;
opendir(my $d, ".") or die $!;
while(readdir $d) {
if (-d $_ and $_ ne "." and $_ ne "..")
{
$oldname = $_;
$_ =~ s/\./ /g;
$_ =~ s/(\d{4})/($1)/g;
move($oldname,$_);
}
}
closedir $d;
मैंने अभी अपनी पहली प्रोग्रामिंग भाषाओं में से एक के रूप में पर्ल को सीखने की कोशिश करना शुरू किया था इसलिए मैं इस भाषा के लिए अपेक्षाकृत नया हूं।