���������������ď����я�����µ���½���

������¹��Џ����Ώ������������������ޏ�¡�src/Makefile ��������������

#CONF_OPT_PERL = --enable-perlinterp

���³������¹��ԏ����� # ������¼������������������­�����⏢�������·�����������²��������¡�
�����я�������¡�

% make && make test && sudo make install

���·��������¡�build ���̡��돪�»���·�����ď�������¡�vim ������µ�������돢�·��¡�

:echo has('perl')

������������������������ "1" ������½Ð�����ď�����������¹��Џ��������������������������������³���������������������������½�����Ï��������¹��¡�

��������¡�Perl ���̏�����¹��Џ����������������� Vim ������²��ď���½Ð���������������«�����������������Ï�������¡�

:pe[rl] {cmd}

������������

:[range]perld[o] {cmd}

�����������������Ï�������½Ð���������������������·��������¡�
������𡯏��Ð���������������������������������\��\���\���\���\���\���\��������ҏ�����������»��⏢�������·�����ď��������������«�����������Ï��������ޏ��������«�����������я��³���������̏��·�����ď�����¾���¹�����¡�

:perldo tr/a-z/A-Z/

���������«

:perldo $_ = uc($_)

���������«������½Ð��������������¡�
��������������¡�¹���»���������������²������½������������������¡�3 ���� 15 ¹��ԏ����䏢�������ޏ�¡񏪢�������̏����� 4 �����������돢����\¹\��⏢�¼\¹�����ҏ����Џ����������ď��������������«������������¾���¹�����¡�

:3,15perldo $_ = ' ' x 4 . $_

������

:3,15perldo s/^/    /

���������«½Ð��������������¡��½�����������������������Ï�¡�TMTOWTDI ���������������ޏ��������¹��������¡�

:perldo use Jcode; $_ = jcode($_, 'euc')->utf8

�����������я�����\·\��я��������������³������������½Ð���������������·��¡�
���¾��������������ġ����¹�����������½�����Ï�����������¡�

:perl VIM::Msg("hoge")

\���\���\»���¼\�������½Ð���»������ (½Ð���·�����������������Ï��¹������)

:perl VIM::Msg("Wuff, Wuff!!", "ErrorMsg")

\��\������¼\���\���\»���¼\�������½Ð���»������ (½Ð���·�����������������Ï��¹������)

:perl VIM::SetOption("ts=8")

:set �����������Ώ�����½Ð������������������������\»\���\���½Ð������������ (�����я����������� :set ������������������������������������)

:perl VIM::Msg(join(",", $curwin->Cursor()))

\«���¼\½\����돪������ӏ����ҏ��½¼�����·���������¹ (:set ruler ������������������������������������)

���µ��������¡�¡�¡�ġ����¹¾���²��Ï��·�����������Ώ��������·�����ď��̏��¾��������������ġ����¹�������������я��������·�����������Ï�¡�
���·���«���·���������̏�������¡�perl �����ҏ�����¹��Џ�����\���\���\���\������̏��«�����ӏ����ď��������������»�����я�¡�
�돫��ޏ�Џ�¡�¼��ҏ������������������������ď�����»��Џ�����������������������������¡�Perl ������¹��Џ����� Vim ������»��������Ï�돪�¡�~/.vimrc \���\���\���\�������������

if has('perl')
    autocmd BufWritePost * :call PerlChmod()
    function PerlChmod()
	perl << EOF
	    my $line = $curbuf->Get(1);
	    my $file = (split(m|/|, $curbuf->Name()))[-1];
	    if ($line =~ /^#!/ and $file =~ /^[^.]/) {
		system('chmod', '+x', $curbuf->Name());
	    }
EOF
    endfunction
endif

���³�����я��������³������������½��Џ����������������쏢�ޏ��Ð��¡񏪢��������¹��ԏ��� shebang (#!) ���«������»���������������\���\���\���\�����������������¡�¼«����돪���쏢����¼���¹��ԏ�������ҏ����؏��ޏ����������򏪤������·���������������������������������·��������¡�

����\��\�������ҏ��·��������¡ߏ����̏����㏢����������������¡�¡�¡�

���������«��¡񏪤¾����������������������������������\���\��ď�����\���\���\���\��������Ң�µ��𡯏��������������������µ�����ҏ�����¡�