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，“总有不止一种方法可以做到”。