ทำความสะอาดชื่อไฟล์โดยใช้ข้อมูลจากไฟล์ข้อความ
ฉันต้องล้างชื่อไฟล์โฟลเดอร์หลาย ๆ ไฟล์ อาจเป็นไปได้ว่าชื่อไฟล์เช่นกัน ฉันกำลังใช้สคริปต์ Perl นี้เพื่อทำเช่นนั้น แต่ฉันพบปัญหาบางอย่าง หากชื่อไฟล์มีวงเล็บอยู่แล้วในรอบปีก็จะเพิ่มอีกชุดหนึ่ง ฉันต้องการใช้ไฟล์ข้อความเพื่อลบ "ลายเซ็น" ทั่วไปในชื่อด้วยเช่นกัน This.Movie.Blah.(2012) [1080p] MP4. ขณะนี้สคริปต์ที่ฉันได้แทนที่.ด้วยช่องว่างตามที่ตั้งใจไว้และเพิ่ม(xxxx)รอบปี This Movie Blah ((2012)) [1080p] MP4ใช้สคริปต์ผลจะ นอกจากนี้ฉันต้องการลบ "ลายเซ็น" ที่ตรงกับค่าของไฟล์ข้อความ (เรียงกัน, ไม่ใช่ CSV) จากชื่อไฟล์ดังนั้น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) …