perlスクリプトの編集 - prepress-tips

最終更新日時： 2009/06/24   

• サクラエディタ の アウトライン解析 を使う
• ieから日本語perlスクリプトを使う
• perlスクリプトを exeにする（ PAR-Packer ）
• ieから日本語perlスクリプトを使う その２

Edit

サクラエディタ の アウトライン解析 を使う

• 数百行程度のperlスクリプトの構造をすばやく把握するために サクラエディタのアウトライン解析が とても役立つ。
  • ルールファイルを作って 適当なところに置き、
    設定－タイプ別設定－アウトライン解析方法 で選ぶ。
  • F11キーで アウトライン解析を実行する（ escキーで閉じる ）。

ルールファイル

#--- /// lv3 #-- /// lv2 #- /// lv1 sub /// lv4

サンプルスクリプト

# find_cols.pl #- このプログラムの目的は？ # 指定されたpdfを 1頁ずつpsに変換し # 色情報を抽出して ファイルに保存する。 #- プログラムの構造は？ #-- pdfの名前 my $pdf = $ARGV[ 0 ]; #-- pdfの頁数を調べる my $pnum = get_pnum( $pdf ); #-- 1頁ごとに 頁と色の情報を抽出する my @pn_and_cols; for ( my $pn = 1 ; $pn < $pnum + 1; $pn++ ) { #--- 頁番号を記録する push @pn_and_cols, "page:$pn\r\x0a"; #--- psに変換して my @ps; get_ps( $pdf, $pn, \@ps ); #--- 色情報を抽出・記録する my @cols; get_cols( \@ps, \@cols ); push @pn_and_cols, @cols; } #-- ファイルに保存する $pdf =~ /\.pdf$/i; my $cols_fn = $`.'_cols.txt'; put_cols( \@pn_and_cols, $cols_fn ); #-- 終了 print "\x0a"; exit( 0 ); #- 主要なサブルーチンは ‥ #-- pdfの頁数を調べる sub get_pnum { my ( $pdf, ) = @_; my $pages = 0; my $info = `\"$pdfinfo\" \"$pdf\"`; $info =~ /(^|\x0a)Pages:\s*(\d+)/i && ( $pages = $2 ); return $pages; } #-- pdfをpsに変換する sub get_ps { my ( $pdf, $pn, $ps, ) = @_; $pdf =~ /\.pdf$/i; my $out = $`.'_'.$pn.'.ps'; -e $out && unlink( $out ); my $opt = "-level2sep -noshrink"; print `\"$pdftops\" $opt -f $pn -l $pn \"$pdf\" \"$out\"`; open( PS, '<'.$out ) || err( "open error PS :", $out ); binmode( PS ); @$ps = ＜PS＞; # ＜＞は半角に直してください。 close( PS ); unlink( $out ); } #-- psから色情報を抽出する sub get_cols { my ( $ps, $cols, ) = @_; map do { ( /^%%DocumentProcessColors:/i && ! /\(atend\)/i || /^%%\+ *[0-9.]+ +[0-9.]+ +[0-9.]+ +[0-9.]+ *\(\w+\) */i ) && ( push @$cols, $_ ); }, @$ps; } #-- ファイルに保存する sub put_cols { my ( $cols, $fn, ) = @_; open( COLS, '>'.$fn ) || err( "open error COLS : $fn" ); binmode( COLS ); print COLS @$cols; close( COLS ); } #- 定型サブルーチンは ‥ sub BEGIN { $pdfinfo = "C:\\Program Files\\xpdf\\pdfinfo.exe"; $pdftops = "C:\\Program Files\\xpdf\\pdftops.exe"; }; sub err { map do { print " ".$_."\x0a"; }, @_; print "\x0a"; exit( 1 ); } sub mes { map do { print " ".$_."\x0a"; }, @_; }

アウトライン解析の結果

• 日本語が使われているperlスクリプトを サクラエディタから マクロで実行するための
  perlスクリプト。
  • このサンプルでは 同じフォルダにある msg.pl を呼び出す。

call_pl.pls

ExpandParameter( '$M' ) =~ /^((?:\\|[\00-\x7f\xa0-\xdf]|..)*\\)([^\\]+\.pls?)$/i # , MsgBox( $1 , 0 , 'script folder' ) && -d $1 && do{ push @INC, $1 ; require 'msg.pl' } ;

ieから日本語perlスクリプトを使う

• ieの中で 日本語のperlスクリプトを使うときは
       <script type="text/perlscript" src="init_html.pl"></script>
  ではなくて requireで呼び出せばよい。
       <script type="text/perlscript"> require "init_html.pl"; </script>
• requireで呼び出すので plの最後には 1; が必要。
  環境によっては @INC への追加設定が必要。
• このとき perlスクリプトが日本語名のフォルダにあると 少し厄介。
  回避法は photoshopスクリプティング を参照のこと。
  （ ieから日本語perlスクリプトを使う その２ にもまとめなおしました。）
• 次のサンプルは exec_cmd.pl を ブラウザとbatの両方から動かす。

exec_from.html

      全角の ＜ をすべて半角の < に置換してから 試してみてください。

＜html> ＜meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS"> ＜head>＜title>日本語perlスクリプトの実行＜/title>＜/head> ＜body> ＜h3 style="margin-left: 1.5em;">日本語perlスクリプトの実行＜/h3> ＜span id="P">＜/span>＜!-- パネル --> ＜br> ＜span id="B">＜/span>＜!-- ボタン --> ＜br>＜br>＜span id="S">＜/span>＜!-- 入力 --> ＜br>＜br>＜span id="M">＜/span>＜!-- 表示 --> ＜/body> ＜script type="text/perlscript"> $window->location->href =~ m,^file:///(.*/)[^/]*$,i; push @INC, $1; ＜/script> ＜script type="text/perlscript">require "init_html.pl";＜/script> ＜script type="text/perlscript">require "exec_from_html.pl";＜/script> ＜/html>

init_html.pl

#- このプログラムは ？ # HTMLを初期化します。 { initPanel( 'P' ); initButton( 'B' ); initString( 'S' ); initMessage( 'M' ); } #- 初期化のルーチン sub initPanel { my ( $id, ) = @_; my $str = join '', ( "\x3ctable", ' cellpadding="0"', ' cellspacing="0"', ' style="margin-left:1.5em;"', '>', ( map do { my $y = $_; join '', ( "\x3ctr>", ( map do { my $x = $_; join '', ( "\x3ctd>", "\x3cspan", ' id="'.$id.$x.'-'.$y.'"', ' style="', 'background-color: #E8E8E8;', 'font-size: 24;', '"', '>', "\x26nbsp;" x 4, "\x3c/span>", "\x3c/td>", ); }, ( 0 .. 5 ) ), "\x3c/tr>", ); }, ( 0 .. 1 ) ), "\x3c/table>", ); id( $id )->{ 'innerHTML' } = $str; } sub initButton { my ( $id, ) = @_; my $str = join '', ( "\x3cinput", ' type=button', ' id="'.$id.'button"', ' value="実行"', # ボタン名 ' style="', 'margin-top: -0.5em;', 'margin-left: 2em;', '"', ' onclick="javascript:', 'click_button();', '"', '>', ); id( $id )->{ 'innerHTML' } = $str; } sub initString { my ( $id, ) = @_; my $str = join'', ( $id."：\x26nbsp;", "\x3cinput", ' type="text"', ' id="'.$id.'str"', ' size="53"', ' style="margin-top: -1.2em;"', ' value=""', # 初期メッセージ '>', ); id( $id )->{ 'innerHTML' } = $str; } sub initMessage { my ( $id, ) = @_; my $str = join'', ( $id."：\x26nbsp;", "\x3cdiv", ' id="'.$id.'msg"', ' style="', 'margin-top: -1.2em;', 'margin-left: 1.5em;', 'padding-left: 0.2em;', '"', '>', '実行を押してみてください。', # 初期メッセージ "\x3c/div>", ); id( $id )->{ 'innerHTML' } = $str; } #- 定型ルーチン sub id { return $window->document->getElementById( $_[0] ); } 1;

exec_from_html.pl

#- このプログラムは ？ # ブラウザ／コマンドライン共用のスクリプトを # ブラウザ側から使うためのスクリプト。 require "exec_cmd.pl"; #- 実行のルーチン sub click_button { my $cmd = id( "Sstr" )->{ 'value' }; my $msg = exec_cmd( $cmd ); msg( $msg ); id( "Sstr" )->{ 'value' } = ''; } #- 定型ルーチン sub id { return $window->document->getElementById( $_[0] ); } sub popup { $window->alert( join "\x0a", @_ ); } sub msg2html { join "\x3cbr>\x0a", map do { split "\x0a", $_; }, @_; } sub msg { id( 'Mmsg' )->{ 'innerHTML' } = msg2html( @_ ); } #- 表示のルーチン sub dispPanel { # パネルを表示する my ( $panel, ) = @_; my @cols = ( # 色の一覧 '#E8E8E8', '#FF0000', '#00FF00', '#0000FF', '#00FFFF', '#FF00FF', '#FFFF00', '#A00000', '#008000', '#0000A0', '#00A0A0', '#A000A0', '#C0C000', ); for my $y ( 0 .. 1 ) { for my $x ( 0 .. 5 ) { id( "P$x-$y" )->style->{ 'backgroundColor' } = $cols[ $$panel[ $y ][ $x ] ]; } } } 1;

   exec_from.html  ←→  init_html.pl 
           ↓ 
   exec_from_html.pl 
           ↓ 
   exec_cmd.pl 

exec_cmd.pl

#- 実行のルーチン sub exec_cmd { my ( $cmd, ) = @_; my $msg = ''; if( $cmd =~ /^\s*$/ ) { # ヘルプ・メッセージ $msg = help(); } elsif( $cmd =~ /^t$/i ) { $msg = '色・記号の一覧'; my $panel = newPanel(); fillPanel( $panel ); dispPanel( $panel ); } elsif( $cmd =~ /^c$/i ) { $msg = 'パネルの初期化'; dispPanel( newPanel() ); } return $msg; } #- 補助のルーチン sub help { # ヘルプ・メッセージ join "\x0a", ( 'コマンド一覧', '　空: コマンド一覧を表示', '　t: パネルに色（ 記号 ）を一覧表示', '　c: パネルのクリア', ); } sub newPanel { # パネルの初期化 [ [ 0, 0, 0, 0, 0, 0 ], [ 0, 0, 0, 0, 0, 0 ] ]; } sub fillPanel { # パネルを埋める my ( $panel, ) = @_; my $x_max = 6; for( my $x = 0; $x < $x_max; $x++ ) { $$panel[ 0 ][ $x ] = $x + 1; $$panel[ 1 ][ $x ] = $x + $x_max + 1; } } 1;

   exec_cmd.pl 
           ↑ 
   exec_from_bat.pl 
           ↑ 
   exec_from.bat 

exec_from_bat.pl

#- このプログラムは ？ # ブラウザ／コマンドライン共用のスクリプトを # コマンドライン側から使うためのスクリプト。 require "exec_cmd.pl"; #- 実行のルーチン { msg( 'Enterを押してみてください。' ); while( 1 ) { my $cmd = ''; { print "\x0a", "cmd: ?（ 終了は q ）\x0a"; $cmd = ( <> =~ /^\s*(.*)\s*$/ ) ? $1 : ''; } $cmd =~ /^q(uit)?$/i && last; my $msg = exec_cmd( $cmd ); msg( $msg ); } } #- 定型ルーチン sub popup { print join "\x0a", '*'x20, @_, '*'x20, '', ''; } sub msg { print 'msg: ', @_, "\x0a"; } #- 表示のルーチン sub dispPanel { # パネルを表示する my ( $panel, ) = @_; my @cols = ( # 記号の一覧 ' ', 'I', 'L', 'Y', 'P', 'N', 'V', 'T', 'U', 'F', 'Z', 'X', 'W', ); my $str = ''; for my $y ( 0 .. 1 ) { $str .= ' .'; for my $x ( 0 .. 5 ) { $str .= $cols[ $$panel[ $y ][ $x ] ]; } $str .= "\x0a"; } print $str; }

exec_from.bat

@echo off cd /d "%~dp0" echo/ perl -I. exec_from_bat.pl if errorlevel 1 pause

perlスクリプトを exeにする（ PAR-Packer ）

• perlで作ったスクリプトを exeに変えて 得意先の環境でも動くようにしたい ── そう思って調べてみたら、PAR というものがあるらしいことを発見。
  ブログを検索すると いろいろ不安なことも書いてあったが、実際に試してみると
  簡単にインストールできて 起動も早く とても快適に使える。

• 使っているperlのバージョンを調べる。
  • perl -v を実行。

結果

This is perl, v5.8.8 built for MSWin32-x86-multi-thread (with 50 registered patches, see perl -V for more detail) Binary build 820 [274739] provided by ActiveState http://www.ActiveState.com Built Jan 23 2007 15:57:46

• PARのMainPage から incomplete compatibility list を見て調べると、
  私の使っているperlのバージョンでは PAR::Packer 0.975 が動くらしい。
• Perl Package Manager を起動して調べると
  PAR-Packer　0.976　PAR Packger というのが 既にある。
  • リポジトリは theoryx5
  • このパッケージに installのマークを付けて Run marked actions を実行。
  • インストールが終わったら コマンドプロンプトから pp を実行。確かに動いているよう。

Set up gcc environment - 3.4.2 (mingw-special)
C:\Perl\site\bin/pp: No input files specified

• 使い方は pp -o ファイル名.exe ファイル名.pl
  あとは Active perl の Documentaion の Pragmas pp を参照してください。

ieから日本語perlスクリプトを使う その２

• javascriptのデバッグにperlスクリプトが使えると とても便利なので
  そのためのスクリプトをまとめました。
  • ブラウザの中から windowsのコマンドを実行できます。
  • 使うときは 全角の ＆ ＜ ＞ をすべて半角に変えてください。

perlscript_test.html

html2 plugin Error : このプラグインで利用できない命令または文字列が入っています。

cmd_exe.pl

$window->alert( "perl load : ok" ); sub cmd_exe { my $r = `$_[0]`; $r =~ s/\&/&/g; $r =~ s/＜/＆lt;/g; $r =~ s/＞/＆gt;/g; "＜pre>$r"; }

• ある変数の内容を result.txtに追記するスクリプト。
  • スクリプトを読み込んだとき result.txtを削除し、
    msg_pl( 変数 ) を実行したとき 変数の内容を result.txtに追記する。

msg.pl

{ # result.txtを削除 $fn = "$window->{ script_folder }result.txt"; -f $fn && unlink $fn; # ロードの確認 $window->alert( "perl load : ok" ); } $fn; sub msg_pl { my $r = undef; # 配列のとき my $l = %{$_[0]}->{ length }; if( ref( $_[0] ) && $l && $l + 1 == scalar keys %{$_[0]} ) { $r = ""; for( my $i = 0; $l && $i < $l; $i++ ) { $r .= %{$_[0]}->{$i}."\x0a"; } } # ハッシュのとき if( ! defined( $r ) && ref( $_[0] ) ) { $r = ""; for( sort keys %{$_[0]} ) { /^length$/ || ( $r .= "$_ : ".%{$_[0]}->{$_}."\x0a" ); } } # 文字列のとき if( ! defined( $r ) ) { $r = $_[0]."\x0a"; } # 結果ファイルに追記 open( OUT, '>>'.$fn ) || $window->alert( 'open error ( 結果ファイル ) : '.$fn ); print OUT $r; close OUT; }

Edit

---