検索条件
全27件
(2/3ページ)
Content-type: text/html; charset=utf-8
4637Content-type:
# HTMLヘッダ出力
sub out_header {
my ($mimetype,$hstr) = @_ ;
print $hstr if ($hstr ne "") ;
print "Content-type: $mimetype\n\n" ;
}
out_header('text/html; charset=utf-8',length($outstr),undef) ;
error in 'BODY': error in 'Block': error in 'break': error in 'do': error in 'eval': eval error: 'print' trapped by operation mask at (eval 2122) line 2, line 3873. : ' print "page",$page->pagenum,"\n" if $Args{'XPDFJ:verbose'} >= 0; $Args{hfpage} ||= $page->pagenum; ' at libs/XPDFJ.pm line 589, line 3873.ここで再び Google殿に尋ねると、perl 5.10 にて同じ現象で嵌った方が、、
# <eval>; # print "page",$page->pagenum,"\n" if $Args{'XPDFJ:verbose'} >= 0; # $Args{hfpage} ||= $page->pagenum; # </eval>こんな感じで「暴挙」を実施したところ・・・