¿Cómo copiar una estructura de carpetas y hacer enlaces simbólicos a los archivos?

Tengo una carpeta SOURCE que contiene varias carpetas de subnivel, cada una con sus propios archivos.

Quiero copiar esta carpeta en una nueva carpeta COPY donde necesito copiar la estructura del directorio pero mantener los archivos como enlaces simbólicos a los archivos originales en SOURCE y sus subcarpetas.

Aquí está la solución en Linux y Cygwin no integrados:

cp -as SOURCE/ COPY

Tenga en cuenta que SOURCE debe ser una ruta absoluta y tener una barra inclinada final. Si desea dar una ruta relativa, puede usar

cp -as "$(pwd)/SOURCE/" COPY

Hay al menos 2 utilidades estándar para construir un árbol de directorios sombra de un árbol existente, por lo que no es necesario escribir código aquí.

En primer lugar está lndir(1)el xutils-devpaquete. Utiliza enlaces simbólicos a los archivos. Desde la página del manual:

NAME
   lndir  -  create a shadow directory of symbolic links to another
             directory tree
SYNOPSIS
   lndir [ -silent ] [ -ignorelinks ] [ -withrevinfo ] fromdir [ todir ]

Una alternativa quizás mejor es simplemente usar cpcon las opciones correctas como sugiere la respuesta aceptada. Solo daré más detalles útiles con suerte:

cp -al /src/dir /dest/dir    # hard-links to leaf-files
cp -as /src/dir /dest/dir    # symlinks to leaf-files

Si no le importa preservar todos los atributos (propiedades / permisos, tiempos), reemplace la aopción (equivalente a -dr --preserve=all) con r(solo recursivo):

cp -rl /src/dir /dest/dir    # hard-links to leaf-files
cp -rs /src/dir /dest/dir    # symlinks to leaf-files

Puedes probar un par de comandos de búsqueda como este:

mkdir FULL-PATH-TO-COPY
cd SOURCE
find . \( ! -regex '\.' \) -type d -exec mkdir FULL-PATH-TO-COPY/{} \;
find * -type f -exec ln -s `pwd`/{} FULL-PATH-TO-COPY/{} \;

Algo como esto hará lo que necesita.

#!/bin/bash
#
SOURCE="$1" COPY="$2"
cd "$SOURCE"
find . |
    sed 's!^\./!!' |
    while IFS= read ITEM
    do
        test -d "$ITEM" && { mkdir -p "$COPY/$ITEM"; continue; }
        BASE="${FILE%\/*}"
        ( cd "$COPY/$BASE" && ln -s "$SOURCE/$ITEM" )
    done

Los directorios se crean en el árbol COPY de destino. Todo lo demás vuelve a la ruta absoluta dentro del árbol SOURCE. Asegúrese de que tanto SOURCE como COPY estén especificadas como rutas absolutas (comenzando por /).

Si tiene que copiar un árbol grande y desea un informe de progreso por directorio, puede agregarlo echo "$ITEM" >&2;justo antes del mkdircomando.

(Miré cpy cpioninguno parece tener una opción para vincular a la fuente con enlaces simbólicos).

Si no hay directorios vacíos en SOURCE que deben copiarse

find /full/path/to/SOURCE -type f -exec cp -t COPY --parents -s {} +
mv COPY/full/path/to/SOURCE COPY
rm -r COPY/full

Comenzaría por romper el perl:

#!/usr/bin/perl

use strict;
use warnings;
use File::Find;

my $src_dir = "/full_path/to/dir";
my $tgt_dir = "/path/to/new/location";

sub link_or_mkdir {

    #current file is directory
    if (-d) {
        #extract the path
        my $newpath = $File::Find::dir;
        #change the path so 'old' and 'new' are swapped
        $newpath =~ s,^$src_dir,$tgt_dir,g;
        #print the command to make a new dir (doesn't actually do it)
        print "mkdir -p $newpath\n";
    }
    if (-f) {
        my $new_file = $File::Find::name;
        #change the path so 'old' and 'new' are swapped
        $new_file =~ s,^$src_dir,$tgt_dir,g;
        #print the symlink command
        print "ln -s $File::Find::name $new_file\n";
    }
}

find( \&link_or_mkdir, $tgt_dir );

File::Findes un módulo útil que le permite ejecutar una subrutina específica en cualquier archivo dentro de un árbol de directorios. En este caso, el subcomprueba si es un directorio, y si lo es, hace un mkdiro un archivo, en cuyo caso hace un enlace simbólico.

Parece que estás buscando algo como la herramienta rsnapshot; crea copias de directorios arbitrarios y usa enlaces duros siempre que sea posible. (Eche un vistazo a la página del manual para ver si eso encaja).