<div id="readability-page-1" class="page"><div>
    
    <article>
        <ul id="markdown-toc">
  <li><a href="#설치" id="markdown-toc-설치">설치</a>    <ul>
      <li><a href="#provider-확인" id="markdown-toc-provider-확인">provider 확인</a></li>
    </ul>
  </li>
  <li><a href="#help-perldo" id="markdown-toc-help-perldo">:help :perldo</a></li>
  <li><a href="#examples" id="markdown-toc-examples">Examples</a>    <ul>
      <li><a href="#search-replace" id="markdown-toc-search-replace">search replace</a></li>
      <li><a href="#현재-버퍼의-모든-라인을-뒤집는다" id="markdown-toc-현재-버퍼의-모든-라인을-뒤집는다">현재 버퍼의 모든 라인을 뒤집는다</a></li>
      <li><a href="#모든-라인-앞에-라인넘버를-붙인다" id="markdown-toc-모든-라인-앞에-라인넘버를-붙인다">모든 라인 앞에 라인넘버를 붙인다</a></li>
    </ul>
  </li>
  <li><a href="#links" id="markdown-toc-links">Links</a></li>
</ul>

<h2 id="설치">설치</h2>

<p><code>cpanm</code>을 설치하고, <code>Neovim::Ext</code>를 설치한다.</p>

<div><pre><code>brew <span>install </span>cpanminus
cpanm <span>-n</span> Neovim::Ext
</code></pre></div>

<p>이후 <a href="https://metacpan.org/pod/App::cpanminus">metacpan.org/pod/App::cpanminus</a>를 참고하여 <code>App::cpanminus</code>를 설치한다.</p>

<div><pre><code>curl <span>-L</span> https://cpanmin.us | perl - <span>--sudo</span> App::cpanminus
</code></pre></div>

<h3 id="provider-확인">provider 확인</h3>

<p>이후 NeoVim에서 perl provider를 확인해본다.</p>



<p><code>OK</code>가 나오면 성공이다.</p>

<p><img src="https://johngrib.github.io/resource/40/F53D75-3A8B-4054-B7D9-4FEA8C7F20FE/perl-provider.png" alt=""></p>

<p>단, <code>OK</code>가 안 나오고 <code>ERROR</code>가 나와도 <code>:perldo</code>를 사용할 수 있는 경우도 있으니 실제로 실행해볼 것.</p>

<h2 id="help-perldo">:help :perldo</h2>

<blockquote>

  <p><strong>:perldo</strong></p>

  <p>:[range]perldo {cmd}</p>

  <p>Execute perl command {cmd} for each line in the[range], with $_ being set to the test of each line in turn, without a trailing <eol>.
In addition to $_, $line and $linenr is also set to the line content and line number respectively.
Setting $_ will change the text, but note that it is not possible to add or delete lines using this command.
The default for [range] is the whole file: "1,$".</eol></p>
</blockquote>

<p><code>[range]</code>에 해당하는 각 line을 <code>$_</code>에 차례로 설정하고 perl 명령 <code>{cmd}</code>를 실행합니다. 따라붙는 <code>&lt;EOL&gt;</code>는 취급하지 않습니다.<br>
또한 <code>$_</code> 외에도 <code>$line</code> 및 <code>$linenr</code>은 각각 line 내용 및 line 번호로 설정됩니다.<br>
<code>$_</code>에 값을 설정하면 텍스트가 변경되지만 이 명령을 사용하여 줄을 추가하거나 삭제할 수는 없습니다.
<code>[range]</code>의 기본값은 <code>"1,$"</code> 즉 전체 파일입니다.</p>

<h2 id="examples">Examples</h2>

<h3 id="search-replace">search replace</h3>

<div><pre><code><span>:</span><span>perldo</span> s<span>/pattern/</span>replace/<span>g</span>
</code></pre></div>

<p><code>:perldo</code>를 사용하면 [[/regex/pcre]]의 모든 기능을 사용할 수 있기 때문에 굉장히 강력하다.</p>

<h3 id="현재-버퍼의-모든-라인을-뒤집는다">현재 버퍼의 모든 라인을 뒤집는다</h3>

<div><pre><code><span>:</span><span>perldo</span> $_ <span>=</span> <span>reverse</span><span>(</span>$_<span>)</span>;
</code></pre></div>

<p>아래는 이 명령을 실행한 결과이다.</p>

<p><img src="https://johngrib.github.io/resource/40/F53D75-3A8B-4054-B7D9-4FEA8C7F20FE/example-reverse.png" alt=""></p>

<h3 id="모든-라인-앞에-라인넘버를-붙인다">모든 라인 앞에 라인넘버를 붙인다</h3>

<div><pre><code><span>:</span><span>perldo</span> $_ <span>=</span> <span>""</span><span>.</span>$linenr<span>.</span><span>" =&gt; $line"</span>;
</code></pre></div>

<p>아래는 이 명령을 실행한 결과이다.</p>

<p><img src="https://johngrib.github.io/resource/40/F53D75-3A8B-4054-B7D9-4FEA8C7F20FE/example-line-number.png" alt=""></p>

<h2 id="links">Links</h2>

<ul>
  <li><a href="https://formulae.brew.sh/formula/cpanminus">formulae.brew.sh/formula/cpanminus</a></li>
  <li><a href="https://metacpan.org/pod/App::cpanminus">metacpan.org/pod/App::cpanminus</a></li>
</ul>


    </article>


    
    
    



</div></div>

NeoVim에서 :perldo 사용하기

댓글