miscellanea/rime/install.pl

   1 #!/usr/bin/perl -w
   2
   3 use 5.010;
   4 use strict;
   5 use Cwd;
   6
   7 my @file = qw( default.custom.yaml
   8                 squirrel.custom.yaml
   9                 wubi_pinyin.custom.yaml
  10                 wubi86.custom.yaml );
  11
  12 my $cdr = cwd();
  13 foreach (@file) {
  14     print `ln -s $cdr/$_ $ENV{HOME}/Library/Rime/$_`;
  15 }
  16 say "==DONE=="  unless $?;