zsh/install.pl

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use File::Basename;
   5 use Cwd;
   6 use Cwd "abs_path";
   7
   8 my $home = $ENV{'HOME'};
   9 my $zshDir = dirname abs_path(__FILE__);
  10 my $zshrc = $zshDir . "/zshrc";
  11
  12 die "~/.zsh or ~/.zshrc exist. Backup them first.\n" if -e "$home/.zsh" or -e "$home/.zshrc";
  13
  14 print `ln -s $zshDir $home/.zsh`;
  15 print `ln -s $zshrc $home/.zshrc`;
  16
  17 print "Done\n" unless $?;
  18