การเปลี่ยนชื่อไฟล์เป็นชื่อโฟลเดอร์

นี่คือตัวอย่างในภาษา Perl

คุณอาจต้องการแก้ไขสิ่งนี้ แต่มันแสดงวิธีใช้ opendir/readdir ซึ่งเป็นสิ่งที่คุณต้องการ ฉันคิดว่า มันสามารถทำให้สั้นกว่านี้ได้มาก แต่อาจจะไม่ดูดีเท่าเวอร์ชั่นไพ ธ อนนั้น ดังนั้นฉันจึงใช้รายละเอียดและ (หวังว่า) ชัดเจน :)

#!/usr/bin/env perl
#
use warnings;
use strict;

my $rootdir = 'your/root/dir';
opendir( my $rootdh, $rootdir ) || die;
foreach my $dir ( readdir $rootdh ) {
    # skip over the special directories . and ..
    if ($dir =~ m/^\./) {
        next;
    }
    # only want directories
    next unless ( -d "$rootdir/$dir" );
    opendir( my $dh, "$rootdir/$dir" ) || die;
    foreach my $file ( readdir $dh ) {
        if ($file =~ m/^\./) {
            next;
        }
        # only want files this time
        next unless ( -f "$rootdir/$dir/$file" );
        my $extension = $file;
        $extension =~ s/.*\.//g;
        print "$rootdir/$dir/$file", " will be renamed to: ", "$rootdir/$dir/$dir.$extension", "\n";
        # uncomment this when you're ready!
        #rename "$rootdir/$dir/$file" "$rootdir/$dir/$dir.$extension";
    }
}

โดยทั่วไปคุณสามารถใช้ glob.glob() สำหรับสิ่งนี้ได้ แต่เนื่องจากคุณต้องการเดินผ่านโฟลเดอร์แบบวนซ้ำ คุณอาจต้องการใช้คำสั่งผสม os.walk และ fnmatch แทน:

import os
import fnmatch

for root, dirnames, filenames in os.walk('/start/dir/'):
  for filename in fnmatch.filter(filenames, '*.mkv'):
    # do your rename here