6 ##my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime;
7 chomp (my $date = `date +%m%d`);
9 if (-e "$ENV{HOME}/.emacs.d" ) {
10 print "~/.emacs.d folder already exists.\nRename as ~/.emacs.d_bak_$date and continue yes (y) or no (n)? ";
11 chomp (my $yorn = <STDIN>);
13 while ($yorn ne "y" and $yorn ne "n") {
14 print "Input y or n: ";
15 chomp ($yorn = <STDIN>);
20 ! system "mv", "$ENV{HOME}/.emacs.d", "$ENV{HOME}/.emacs.d_bak_$date" or die
24 ## link emacs.d folder
25 ! system "ln", "-s", "$ENV{HOME}/dotfiles/emacs.d", "$ENV{HOME}/.emacs.d" or die;