perl中的簡單文件系統操作

Question

我想創建一個新的目錄，它的內容是軟鏈接到現有目錄的內容，併爲這個新目錄設置完全權限。

我懂得這是在bash：

mkdir -m a=rwx new_dir 
cd new_dir 
ln -s /path/to/old/dir/* . 

，但有一些問題找到perl的等效

Answer 1

怎麼是這樣的：

mkdir -m a=rwx new_dir  in perl: -> mkdir ('new_dir', 0777); 
cd new_dir     in perl: -> chdir ('new_dir'); 
ln -s /path/to/old/dir/* . in perl: -> 

    use constant OLD_DIR => '/path/to/old/dir'; 

    for my $oldname (glob(OLD_DIR . '/*')) { 
     my $newname = $oldname; 
     $newname =~ s/^.*\///s;  # Remove everything up to last "/" 
     symlink ($oldname, $newname); 
    } 

當然，與Perl，「總有不止一種方法可以做到」。