рекурсивное создание символьных ссылок

[HOINOM_KITT]

есть каталоги /target_dir1 и /target_dir2
нужен скрипт чтобы рекурсивно пробежаться по /target_dir1 и создать со всего что только возможно символьные ссылки в /target_dir2 с уже скопированной структорой из первого
структуру копировал с помощью

Код: [Выделить]

find target_dir1 -type d | cpio -pvdm target_dir2
нашел perl но отвечает что не найдены файлы или дирректории.

Код: [Выделить]

#!/bin/perl
use File::Find;
    $src = ~/target_dir1;
    $dst = ~/target_dir2;
    find(sub {
           (my $rel_name = $File::Find::name)
             =~ s!.*/\./!!s;
           my $src_name = "$src/$rel_name";
           my $dst_name = "$dst/$rel_name";
           if (-d) {
             print "mkdir $dst_name\n";
             mkdir $dst_name, 0777
               or warn "mkdir $dst_name: $!";
           } else {
             print "ln -s $src_name $dst_name\n";
             symlink $src_name, $dst_name
               or warn "symlink $src_name $dst_name: $!";
           }
         }, "$src/./");

[ArcFi]

Код: (bash) [Выделить]

cp -Rs "$PWD"/target_dir1 target_dir2

[HOINOM_KITT]

  спасибо. даже структуру создало ))). закрыто.