#!/usr/local/bin/perl
# このスクリプトの元になっているのは
# http://www.tekipaki.jp/~clock/software/index.html
# の「成分解析 Ver0.2b (For Windows)」です。
# プログラム自体の解析はしていませんので適当です。
use CGI ':all';chomp(@d=<DATA>);@d='エラー'if!@d;$r=param('d')?20:10;$s=substr
param('s')||'',0,64;for(1..length$s){srand ord substr$s,$_-1,1;$i=substr(rand$_
%$r,2,length@d)%(@d||1);$t+=1+$i;$d{$i}+=1+$i}$t||=1;charset '';put header,p(
'物質名称を入力してください。'),start_form,textfield(-name=>'s'),checkbox(-name
=>'d',-label=>'倍精度'),submit('解析'),end_form,$s?dl(dt(escapeHTML($s),
'の成分解析結果'),dd(ul(li[map sprintf('%sの%.1f%%は%sでできています。',
escapeHTML($s),$d{$_}/$t*100,$d[$_]),sort{$d{$b}<=>$d{$a}}keys%d]))):'';
__DATA__
血
理論
成功の鍵
心の壁
言葉
お菓子
ミスリル
濃硫酸
マイナスイオン
気の迷い
祝福
カテキン
白インク
黒インク
株
雪の結晶
陰謀
野望
回路
月の光
鍛錬
白い何か
赤い何か
利益
玉露
果物
時間
アルコール
スライム
睡眠薬
柳の樹皮
苦労
歌
税金
着色料
保存料
媚び
魂の炎
知恵
知識
情報
純金
波動
蛇の抜け殻
海水
鉛
毒物
犠牲
宇宙の意思
花崗岩
罠
乙女心
度胸
勢い
不思議
希望
魔法
カルシウム
鉄の意志
記憶
夢
信念
呪詛
真空
嘘
欲望
見栄
大人の都合
覚悟
汗と涙(化合物)
小麦粉
電力
運
勇気
明太子
大阪のおいしい水
怨念
元気玉
毒電波
電波
愛
食塩
砂糖
根性
気合
努力
ビタミン
ハッタリ
世の無常さ
厳しさ
ツンデレ
むなしさ
やらしさ
やましさ
やさしさ
かわいさ
華麗さ
優雅さ
微妙さ
下心