如何使用perl在文件夹中的文件之间建立符号链接？

Question

here is the scenario.

I have dir1-->file1
          |-->file2
          |-->subdir1--->file3
          |         |---> file4 
          | 
          |-->file1
          |-->subdir2-->file6

also dir2 different file tree...

I need to symlink above file in /path/dir1 and /path/dir2 to anthor path call /newpath/dir1 and /newpath/dir2..

is it possible?

So far i tried below

#!/usr/bin/perl

use strict;
use File::Find qw(find);
my $path = "path";


find(\&Search, $path);

sub Search{
    my $filename = $File::Find::name;

    if(-f $filename){
     symlink("$filename", "path2");
     }
     }

Answer 1

symlink($filename, "path2/" . $_);

Should do the trick. Always assuming "path2" is the directory where you want the links to be place.

Answer 2

Finally i went with below method.

    my $dir = "/path/";
    my $smlinkdir = "/smlink/path/";
    chdir($smlinkdir) or die "Cant chdir to $smlinkdir $!";
    if(-d $smlinkdir) {
    system(cp, '--recursive', '--preserve=all', '--no-dereference', '--symbolic-link', "$dir", "$smlinkdir");
    } else {
    exit 1
    }

this worked as well and i went with this since this gives the output i expected.