Простые операции с файловой системой в perl

Question

Я хотел бы создать новый каталог, в котором его содержимое будет содержать ссылки на содержимое существующего каталога, и установить полные разрешения для этого нового каталога.

Я знаю, как это в Баш:

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: «Всегда есть много способов сделать это».