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.schema.yaml );
  10
  11 my $cdr = cwd();
  12 foreach (@file) {
  13     print `ln -s $cdr/$_ $ENV{HOME}/Library/Rime/$_`;
  14 }
  15 say "==DONE=="  unless $?;