日付表示                戻る


Perl用PNG連結ライブラリ で提供していただいてある, PNG画像連結用のフリ−のプログラム pngren.pl ver1.1 を利用して日付表示をして見ました、 画像デ−タのサンプルは実験条件にあります


本日は  です

−−−−−−−−−−−−−−−−−−−−−−−−
プログラム(getdate.cgi,pngren.pl)は/cgi−bin/ ,イメ−ジは /cgi−bin/img にある場合
画像は,date.png が必要( 実験条件 にあります )

HTMLのタグ <IMG SRC="/cgi-bin/getdate.cgi">
--------------------------------------------------------------------------------------------- #!/usr/bin/perl # # getdate.cgi # require "pngren.pl"; $sipng='./img/date.png'; # $#narabi=-1; ($sec, $min, $hour, $mday, $mon, $year,$wday,$yday,$isdat) = localtime(time); $mon=$mon+1; $len=length($mon); for($i=0;$i<$len;$i++) { $n = substr($mon, $i, 1); push(@narabi,$n); } push(@narabi,12); $len=length($mday); for($i=0;$i<$len;$i++) { $n = substr($mday, $i, 1); push(@narabi,$n); } push(@narabi,11); push(@narabi,10); push(@narabi,$wday+13); &pngren::PngRen($sipng,*narabi); exit(0); ---------------------------------------------------------------------------------------------