1 #title = "perl"
  2 #tooltip = "選択範囲か現在行をperl"
  3 #include "lib\sgc4jsee.jsee"
  4 
  5 /**
  6  * @fileOverview
  7  * 選択範囲があれば選択範囲、選択範囲がなければ現在行をperlとして実行して、printした結果をアラート表示します。<br />
  8  * <br />
  9  * 他にもこんな手段があるようです。<br />
 10  * <a href="http://perl-users.jp/articles/advent-calendar/2009/casual/15.html">PerlでEmEditorマクロを書こう - JPerl Advent Calendar 2009</a><br />
 11  * 
 12  * @author gecca from 雪月花 (http://setsugecca.org/)
 13  * @version 1.00 for EmEditor v10.0
 14  */
 15 
 16 try { (function(std) {alert(std.err ? std.err : std.out)})(JseeUtil.exec("perl -e \"" + (document.selection.Text ? document.selection.Text : document.GetLine(document.selection.GetActivePointY(eePosLogicalA))).replace(/"/g, "\\\"") + "\"")); } catch(e) { eval(e.message.match(/指定されたファイルが見つかりません。\r\n/) ? "alert(\"perl.exeが見つかりません。pathが通っていない可能性があります。\");" : "throw e;"); }