HDML - HDML生成
use 5.005; use strict; use HDML;
my $hdml = HDML -> new; print $hdml -> hdml( { -version => '3.0', -public => 1, -markable => 'true' }, $hdml -> display( { -title => 'Test Card - 1' }, $hdml -> action( { -type => 'accept', -task => 'gosub', -dest => '#2' } ), 'FooFoo' ), $hdml -> choice( { -name => '2' }, $hdml -> line( 'BazBazBazBazBazBaz', $hdml -> wrap ), "Bar\n", $hdml -> ce( { -value => 'one' }, '1' ), $hdml -> ce( { -value => 'two' }, '2' ), $hdml -> ce( { -value => 'three' }, '3' ) ) ); exit;
perlで動的にHDML( Handbeld Device Markup Language )を生成するモジュールです。 CGI.pmでHTMLを生成するような感覚で簡単にHDMLを作ることが出来ます。
現時点バグは発覚しておりませんが利用者の使い方によっては不都合が生じることかもしれません。
もっと簡略化できる箇所や不都合な箇所があった場合ご報告くださるとうれしいです。 その他意見要望なども <maki@tk6.org1.com> まで。
(c)2001-2002 MAKINA/Shuhei Nomura <maki@tk6.org1.com>
HDML.pm is GPL software.