- 105 名前：nobodyさん [2006/01/08(日) 21:08:56 ID:jjfaosB+]
- >>1
昔仕事で作ったやつだけど、どうぞ。
#!/usr/bin/perl
use strict;
use Jcode;
use danbou;
my $obj = danbou->new;
print "Content-type: text/html\n\n";
#コタツ利用
print Jcode->new($obj->japanese_kotatsu)->euc;
##ストーブ利用
#print Jcode->new($obj->stove)->euc;
print '(ﾟдﾟ)ｳﾏｰ';
exit;
