Perlで電気ストーブを作る方法

Perlで電気ストーブを作る方法 at PHP

105:nobodyさん
06/01/08 21:08:56 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;

次ページ

続きを表示

1を表示