Rewrote mklinks in Perl

mklinks

@@ -1,4 +1,4 @@
-#!/bin/sh
+#!/usr/bin/perl
 
 # ============================================
 # mklinks
@@ -27,28 +27,42 @@
 # ============================================
 
 
-if [ -z "$1" ];
-    then echo "usage: $0: DOTROOT [PREFIX]";
-    exit 1;
-fi;
+use strict;
+use warnings;
+use Getopt::Long;
 
-dotroot=$1
-prefix=$HOME
+sub usage { print STDERR "usage: $0: DOTROOT [PREFIX]\n"; exit 1; }
 
-if [ -n "$2" ];
-    then prefix=$2;
-fi;
+my $dotroot;
+my $prefix;
 
+my $opts = GetOptions(
+    'dotroot=s' =>  \$dotroot,
+    'prefix=s' =>   \$prefix
+) or usage;
 
-ls $dotroot | while read item;
-do
-    source=$dotroot/$item;
-    target=$prefix/.$item;
-    if [ -e $target ];
-    then
-        echo "target exists: $target" 1>&2;
-    else
-        ln -s $source $target;
-    fi;
-done;
+$dotroot = $dotroot // shift;
+$prefix = $prefix // shift;
+$prefix = $prefix // $ENV{HOME};
+$dotroot or usage;
+
+sub mklinks {
+    my $dotroot = shift;
+    my $prefix = shift;
+    -d $dotroot or die "not a directory: $dotroot";
+    my @dirs = `ls $dotroot`;
+    foreach my $dir (@dirs) {
+        chomp $dir;
+        my $source = "$dotroot/$dir";
+        my $target = "$prefix/.$dir";
+        `mkdir -p $prefix`;
+        if (-e $target) {
+            warn "target exists: $target\n";
+        } else {
+            `ln -s $source $target`;
+        }
+    }
+}
+
+mklinks($dotroot, $prefix);