#!/usr/bin/perl use Suika::CGI; use H2H; print jcode::jis(< 理数科大辞典

理数科大辞典

EOH opendir DIR, '.'; my @FILELIST = (grep(/.*\.(?:hnf|h2h)$/, readdir(DIR))); close DIR; my %boptions = ( directory => '/home/wakaba/lib/H2H/V100/Theme/', theme => 'Glossary', theme09_directory => '/home/wakaba/lib/H2H/V090/', theme09 => 'glossary', title => '理数科大辞典', keyword => '用語, 辞書, 辞典, 字典, 事典', description => '用語集(謎)であります。', version => 'H2H/1.0', ); for my $fn (@FILELIST) { my %options = (%boptions); $fn =~ tr/\x0D\x0A//d; $fn =~ tr/\x0D\x0A//d; if ($fn =~ /^(.+)\.(?:hnf|h2h)$/) {$options{prefix} = $1} $options{noheader} = 1; $options{nofooter} = 1; open HNF, $fn; print jcode::jis(H2H->toHTML(\%options, ), 'euc'); close HNF; } print jcode::jis(< [/ 地図検索] [理数科] EOH 1;