#navi_header|Perl|

この記事を書いている時点ではLinux/UNIX専用の技です。(Tcl/TkがXWindowsと通信できる環境が必要)

ローカルマシンでWebサーバを立ち上げて、PerlのCGIをデバッグするときに Devel::ptkdb を使ってGUIデバッガを立ち上げる手法です。

Devel::ptkdbを入れると、通常のPerlスクリプトであれば
 $ perl -d:ptkdb ./hoge.pl
でGUIデバッグを利用できます。

これをCGIでも利用するには、PerlCGIの先頭行、スクリプトファイルの指定部分を下記のように-dオプションを付けます。
 #!/usr/bin/perl -d:ptkdb
但し、このままではTcl/TkのGUIライブラリがXWindowsSystemと通信できませんので
 $ xhost +localhost
で、ローカルホスト。つまり、CGIを起動するWebサーバからのアクセスを許可します。

#navi_footer|Perl|