#!/bin/bash
# lntree
export from=`p "$1"`
mkdir -p "$2"
export to=`p "$2"`
{ cd "$from"; find . -type d -print0; } |
  { cd "$to"; xargs -0 mkdir -p; }
{ cd "$from"; find . \! -type d; } |
  perl -ne 'chomp; s,^\.,,; $f = $ENV{from}.$_; $t = $ENV{to}.$_; unlink $t; link $f, $t';