Perl batch

Batchファイルを使って一連の処理を実行させたが、Batchはいろいろ不便でPerlスクリプトに切り替える。

１．外部コマンドの実行

$path = 'C:\';
$result = `dir \"$path\"`;
$result = system('dir', "$path");

if($result != 0){
    #ok 
}else{
    #ng
}

２．Yes/No

sub yesno{
  my $comment = shift;
  my $default = shift;
  
  if($default){
    $comment .= " ([y]/n): ";
  }else{
    $comment .= " (y/[n]): ";
    $default = 0;
  }
  my $prv = $|;
  $| = 1;
  print $comment;
  
  $| = $prv;
  my $ans = ;
  chomp($ans);
  $ans = uc($ans);
  
  if($ans eq 'Y'){
    return(1);
  }elsif($ans eq 'N'){
    return(0);
  }
  return($default);
}

My .vmimrc

set autoindent
set nocompatible
set wildmenu wildmode=list:full
set backupdir=$HOME/.vimbak
set shiftwidth=4
set tabstop=4
set smartindent

set whichwrap=b,s,h,l,<,>,[,]

set clipboard=unnamed,autoselect

"---------------------------------------------------
"
set ignorecase
set smartcase

"---------------------------------------------------
set tabstop=4
set noexpandtab
set autoindent
set backspace=indent,eol,start
set wrapscan
set showmatch
set formatoptions+=mM

"---------------------------------------------------
set number
set ruler
" show tab or newline
"set list
"set listchars=tab:>-,extends:<,trail:-,eol:<
"set listchars=eol:<
set nowrap
set laststatus=2
set cmdheight=1
set showcmd
set title
" set colorsheme
colorscheme desert

" hightlight search
set hlsearch

" set syntax
syntax on
"--------------------------------------------------
set nobackup

"--------------------------------------------------
" turn on filetype-plugin
filetype plugin on