note103

" http://nanasi.jp/articles/vim/hz_ja_vim.html

nnoremap <C-j>zh :HzjaConvert han_eisu
nnoremap <C-j>hz :HzjaConvert zen_eisu
vnoremap <C-j>zh :HzjaConvert han_eisu
vnoremap <C-j>hz :HzjaConvert zen_eisu

note103

#!/usr/bin/env perl
use strict;
use warnings;
use feature 'say';
use utf8;
binmode STDOUT, ':utf8';
use Time::Piece;
use Time::Seconds;

my @data = <DATA>;

note103

nnoremap <C-j>ww <C-w><C-w>ZZ
nnoremap <C-j>wq <C-w><C-w>ZQ
nnoremap <C-j>wj <C-w>jZZ
nnoremap <C-j>wk <C-w>kZZ

note103

let g:lightline = {
        \ 'colorscheme': 'seoul256',
        \ 'mode_map': {'c': 'NORMAL'},
        \ 'active': {
        \   'right': [ [ 'syntastic', 'lineinfo' ],
        \              [ 'percent' ], [ 'winform' ],
        \              [ 'fileformat', 'fileencoding', 'filetype' ] ],
        \   'left': [ [ 'mode', 'paste' ], [ 'fugitive', 'branch', 'filename' ] ]
        \ },
        \ 'component_function': {

note103

let g:lightline = {
        \ 'colorscheme': 'seoul256',
        \ 'mode_map': {'c': 'NORMAL'},
        \ 'active': {
        \   'right': [ [ 'syntastic', 'lineinfo' ],
        \              [ 'percent' ], [ 'winform' ],
        \              [ 'fileformat', 'fileencoding', 'filetype' ] ],
        \   'left': [ [ 'mode', 'paste' ], [ 'fugitive', 'branch', 'filename' ] ]
        \ },
        \ 'component_function': {

note103

#!/usr/bin/env perl
use strict;
use warnings;
use feature 'say';

# 1. 以下の無名サブルーチンがあったとして、

my $f = sub {
    my $s = shift;
    for my $i (@$s) {

note103

" 改行時にインデントを一段深くする
nnoremap <Leader>rt A<CR><ESC>I<TAB><ESC>A 

" 同階層インデントのまま改行
nnoremap <Leader>ri A<CR>

" インデント解除して改行
nnoremap <Leader>rh o<ESC>I

" 行頭ハイフンのリスト化

note103

my @array = <DATA>;
my $n = 1;
for my $line (@array) {
    print "$n: $line";
    $n++;
}
__DATA__
apple
orange
lemon

note103

#!/usr/bin/ruby
# http://magazine.rubyist.net/?0009-YAML
#
# 引数を使う場合
#str  = ARGF.read()      # 入力をすべて読み込む
#data = YAML.load(str)   # パースする
#
# コード上でファイルを指定する場合
#data = YAML.load_file('data.yml')

note103

#!/usr/bin/env perl
use strict;
use warnings;
use feature 'say';

{
    my $count = 0;
    sub counter {
        say $count++;
    }