gistfile1.txt

#!/usr/bin/env perl

use File::Basename;

my $WORKDIR=$ENV{PWD};
my $PKGDIR=$WORKDIR . "/chef";
chdir $PKGDIR;

my $file = "pkgmap";
open my $fh, '<', $file or die "Could not open '$file' $!";
while (my $line = <$fh>) {
  chomp $line;
  next unless $line =~ / s /;

  $line =~ s/^.*none //;

  my ( $target, $source ) = split/=/, $line;
  my $dirname  = dirname($target);
  my $basename = basename($target);

  my $full_path = "$PKGDIR/reloc/$dirname";

  chdir $full_path;

  symlink $source, $basename;
  chdir $PKGDIR;
}