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