Perl 強制終了の回避について

Question

Attempt to free unreferenced scalar とは?
http://oshiete1.goo.ne.jp/qa4237453.html

の続きです。
とりあえず、下に現状で分かる最小限の再現性があるスクリプトを
書いておきます。

print &opentmpl("body");
print &opentmpl('footer'); # これがない場合はエラーにならない

sub opentmpl {
my $fn = shift;
my $VAR = shift || {};
my $file = &{$fn}();
&regex(\$file, $VAR, '__([A-Z_\d]+?(\[\d+?\])?)__', ['$VAR->{"%s"}', '$1']);
&regex(\$file, $VAR, '&{(.+?)}&', ['%s', '$1']);
return $file;
return undef;
}

sub regex {
my $str = shift;
my $VAR = shift;
my $pattern = shift;
my $replace = shift;
$$str =~ s/((([^\n]*?)$pattern(?=.*))+(\n?))/&func($1, $VAR, $pattern, @$replace)/egs;
return;
}

sub func {
my $str = shift;
my $VAR = shift;
my $pattern = shift;
my $buf = shift;
$str =~ s/$pattern/$@ = ''; $_ = eval(sprintf($buf, map { eval($_); } @_)); $@ ? $@ : $_/egs;
if($str =~ /^\s*\n?$/s) {
return;
}
return $str;
}

sub body {
print "Content-type: text/plain; charset=shift_jis\n\n";
return <<'HTML';
&{
return &opentmpl('table', {'TEST' => 'test'});
}&
HTML
}

sub table {
return <<'HTML';
__TEST__
HTML
}

sub footer {
return <<'HTML';
test
HTML
}

調べてみた限りではActivePerl for Win32以外のPerlでも同様のよう
です。
(Linux上でも同様のようです)

5.8.8ではエラーになりますが、5.10.xではエラーにならないようです。
(同じ環境において5.8.8では再現し、5.10.0にバージョンアップすると
再現しなくなり、再度5.8.8にバージョンダウンすると再現します)
本番機の環境が5.8.8で勝手にバージョンアップなどができないため、
5.8.8で正常に動作するようにするにはどうしたらよいでしょうか。

結構、無駄も多いと思いますので全く同じ動作をしながらより効率の
いい書き方ができたらいいなと思います。
(なお、実際には使用しているけど上記では使用していない部分が
含まれていてその部分がない場合もエラーにならないようです)

kabaokaba · Accepted Answer

とりあえず，再現しません．

This is perl, v5.8.8 built for MSWin32-x86-multi-thread
(with 18 registered patches, see perl -V for more detail)

Copyright 1987-2007, Larry Wall

Binary build 822 [280952] provided by ActiveState http://www.ActiveState.com
Built Jul 31 2007 19:34:48

Perl may be copied only under the terms of either the Artistic License or the
GNU General Public License, which may be found in the Perl 5 source kit.

Complete documentation for Perl, including FAQ lists, should be found on
this system using "man perl" or "perldoc perl". If you have access to the
Internet, point your browser at http://www.perl.org/, the Perl Home Page.

perl test.pl
Content-type: text/plain; charset=shift_jis

test

test
============
use strict;
use warnings;
してないととか，サブルーチンの呼び出しに&をつけてるとか
どういう結果が期待しているものなのか不明だったりしますが，
＃5.8.10でうごくんなら，その「期待された結果」を明示すべきだと
＃思うけどね

こんな感じでうごく？
そもそももっと「読めるコード」にすべき．
しばらくたって自分でこのコードのやってること読めますか？
私はまったく読めません．

use strict;
use warnings;

my %subs=(
"body" => sub {
print "Content-type: text/plain; charset=shift_jis\n\n";
return <<'HTML';
&{
return opentmpl('table', {'TEST' => 'test'});
}&
HTML
},
"table" => sub {
return <<'HTML';
__TEST-TABLE__
HTML
},
"footer" => sub {
return <<'HTML';
test-footer
HTML
},
);

print opentmpl("body");
print opentmpl('footer'); # これがない場合はエラーにならない

sub opentmpl {
my $fn = shift;
my $VAR = shift || {};
my $file = $subs{$fn}->();
regex(\$file, $VAR, '__([A-Z_\d]+?(\[\d+?\])?)__', ['$VAR->{"%s"}', '$1']);
regex(\$file, $VAR, '&{(.+?)}&', ['%s', '$1']);
return $file;
}

sub regex {
my $str = shift;
my $VAR = shift;
my $pattern = shift;
my $replace = shift;
$$str =~ s/((([^\n]*?)$pattern(?=.*))+(\n?))/func($1, $VAR, $pattern, @$replace)/egs;
return;
}

sub func {
my $str = shift;
my $VAR = shift;
my $pattern = shift;
my $buf = shift;
$str =~ s/$pattern/$@ = ''; $_ = eval(sprintf($buf, map { eval($_); } @_)); $@ ? $@ : $_/egs;
if($str =~ /^\s*\n?$/s) {
return;
}
return $str;
}

kabaokaba · Answer

なるほど・・821からですか．
＃そろそろ5.10にうつろうかな・・・Pugsでもいいんだけど(笑)

>現象の発生するサンプルは今、もうちょっと簡略化できないか

一応，シンプルにするためにソフトリファレンスを
ディスパッチテーブル（ハッシュ）にしたりする方法を
書いたのですが。。。

あとはサブルーチン，regex・・・これは本当に必要なのかな
それから，ややこしい正規表現を書くときには
xオプションも考えるべきでしょうね．
参照：Perlベストプラクティス（D.Conway，オライリー）

sakusaker7 · Answer

参考情報。

Build 821 Wednesday, Jun 24, 2007

Build 821 is based on Perl 5.8.8, but also includes all changes from the Perl 5.8 maintenance branch up to change 31223 plus additional selected changes from the Perl 5.9 development branch.

Build 821 was only distributed for HP-UX.

これから考えると、Build 820 → Build 821で加えられた修正が効いているのでは?
ただし最後の行にあるように、Build 821としてリリースされたのは
HP-UX向けだけと。

Perl 強制終了の回避について

とりあえず，再現しません．

この回答への補足

なるほど・・821からですか．

この回答への補足

参考情報。

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング