与えられたテキストに似ているジョジョの名言を返すテスト ジョジョの名言はNaverまとめさんからひっぱってきた

jojo_similarity.pl

#!/usr/bin/env perl
use Mojolicious::Lite;
use utf8;
use Encode;
use String::Similarity;

my @witticisms = qw();

# Naverまとめからもってきた名言をtxtファイルにもってきた
# とりあえずさっくりやってみる
my $jojo_txt = './jojo_witticism.txt';
open my $fh, '<', $jojo_txt;
while (<$fh>) {
    chomp;
    push @witticisms, decode("utf8", $_);
}
close $fh;

get '/:sentence' => sub {
    my $self = shift;
    my $sentence = $self->param('sentence');

    my @sim = (0, 0, 0);
    my @txt = (
        "Sorry, somthing was wrong.",
        "Sorry, somthing was wrong.",
        "Sorry, somthing was wrong.",
    );

    for my $wit (@witticisms) {
        my $similarity = similarity $wit, $sentence;
        # 類似する名言を3つ選ぶ
        # 1番類似度が高いものから順に3番目まで比較更新する
        for (my $i = 0; $i < 3; $i++) {
            if ($sim[$i] < $similarity) {
                $txt[$i] = $wit;
                $sim[$i] = $similarity;
                last;
            }
        }
    };

    $self->render_json({
        1 => {
            text => $txt[0],
            similarity => $sim[0],
        },
        2 => {
            text => $txt[1],
            similarity => $sim[1],
        },
        3 => {
            text => $txt[2],
            similarity => $sim[2],
        },
    });
};

app->start;

jojo_witticism.txt

鋼を伝わる波紋疾走！　銀色の波紋疾走！
いつだってささえるさ
だから　ぼくはあなたとの戦いを止めた・・・ だから　あなたは剣の攻撃を途中で止めた！
ふるえるぞハート！ 燃えつきるほどヒート！！仙道波紋疾走ッ！！
恨みをはらすために　ディオ！　きさまを殺すのだッ！
ひと呼吸あれば！　刻むぞ血液のビート！ 水中のための青緑波紋疾走ーッ！！
ぼくは父を守るッ！　ジョースター家を守るッ！
ディオォォオオーッ！　君がッ　泣くまで　殴るのをやめないッ！
「策」ではないッ！　「勇気」だッ！
信念さえあれば　人間に不可能はない！ 人間は成長するのだ！　してみせるッ！
ああ　ぼくはこうして悲しみのまま涙でずぶぬれになって死んで行くんだ でも誰もぼくの亡骸を見ても泣いてくれないだろうな・・・ ため息ぐらいついてくれるかな
ジョジョ継いでくれ　わしの意志をー！！ 究極！　深仙脈疾走！！
生命磁気への波紋疾走ッ！
まるで親友と息子を同時に持ったような気持ちだぞ そして　わしは　これからおまえの中で生きるんじゃ・・・
「勇気」とは「怖さ」を知ることッ！「恐怖」を我が物とすることじゃあッ！ 人間賛歌は「勇気」の賛歌ッ！！ 人間のすばらしさは勇気のすばらしさ！！ いくら強くてもこいつら屍生人は「勇気」を知らん！ ノミと同類よォーッ！！
北風が勇者バイキングを作った
当たる面積を最小にして波紋防御！
命を賭して学ぶ理由がある！
太陽の波紋　山吹き色の波紋疾走！！
だが断る
『マンガ』とは想像や空想で描かれていると思われがちだが 実は違う！自分の見た事や体験した事 感動した事を描いてこそおもしろくなるんだ！
『天国』とか『地獄』とかあるのかどーかは知らんが 念のため描いといてやるよ
ぼくは『読んでもらうため』にマンガを描いている！
『勝つ時』っていうのは・・・ こんな風に相手を見下しながら『勝つ』もんだからだ
他人を負かすってのはそんなむずかしい事じゃあないんだ… もっとも『むずかしい事』は！いいかい！ もっとも『むずかしい事』は！『自分を乗り越える事』さ！
いいかい！　もっとも『むずかしい事』は！ 『自分を乗り越える事』さ！
あんたははたして滅びずにいられるのかな？　ボス・・・
このジョルノ・ジョバァーナには『夢』がある！
『一台盗めば』あっという間に見つかってしまうでしょう だが『１００台盗めば』どの車に乗っているのか・・・ 見つけるのは困難になるでしょう
「覚悟」とは・・・犠牲の心ではないッ！
なぜならあんたはぼくの仲間になるからだ
おまえはあの無関係のじいさんの『命を侮辱した』
あなた・・・『覚悟して来てる人』・・・ですよね 人を始末しようとするって事は 逆に「始末」されるかもしれないという危険を 常に『覚悟して来ている人』ってわけですよね・・・
一度でいい事を二度言わなけりゃあいけないってのは・・・ そいつが頭が悪いって事だからです
「覚悟」とは！！ 暗闇の荒野に！！　進むべき道を切り開く事だッ！！
終わりのないのが『終わり』 それが『ゴールド・Ｅ・レクイエム』
希望さえあればどんな所にでも たどりつけると決心している。
あんたがいい人だからな
おまえ・・・頭悪いだろ・・・？
グレート
この人は『町を守っている男』の目になった
この自慢の頭をけなされるとむかっ腹が立つぜ！
ああ・・・ハデに吹っ飛んだよ・・・ オレの誘導どおり「あの世」までな・・・
おめーに『さよなら』って言葉があるとするならよーっ おれたちが『さよなら』と言うのを聞く時だけだ！
深い理由なんてねぇよ「なにも死ぬこたあねー」 さっきはそー思っただけだよ
スゲーッ爽やかな気分だぜ 新しいパンツをはいたばかりの正月元旦の朝のようによォ〜ッ
時は動き出す！
歩道が広いではないか・・・行け
「世界」ッ！時よ止まれ！
ロードローラーだッ！
おれは「恐怖」を克服することが「生きる」ことだと思う 世界の頂点に立つ者は！ ほんのちっぽけな「恐怖」をも持たぬ者ッ！
とるにたらぬ人間どもよ！支配してやるぞッ！！ 我が「知」と「力」のもとにひれ伏すがいいぞッ！
過程や・・・！方法なぞ・・・！どうでもよいのだァーッ
永遠の安心感を与えてやろう
始末すべき宿命・・・
『正義』は勝つ！
大切なのは「認識」することですじゃ！ スタンドを操るということは できて当然と思う精神力なんですぞッ！
ケケケーッ　拳で霧がはったおせるかッ！ 剣で霧が切れるかッ！銃で霧を破壊できるかッ！
刻むぜ　波紋のビート！
決定的だ・・・おれは・・・これから死ぬんだな・・・
カッコつけたかったんじゃよ　おまえの前で
一万年以上生きているらしいが おれとだまし比べてはりあうには１０年早いぜッ！　カーズ！
落ち着け・・・落ち着いて考えるんだ わしにはパニックという言葉はない・・・何か見つけるんだ・・・ 何かやつに切り込む対策を・・・
また会おうッ！ わしのことが嫌いじゃあなけりゃあな！・・・マヌケ面ァ！
当たりまえだぜッ！ このＪＯＪＯはなにからなにまで計算づくだぜーッ！
このオレに二度同じ手を使うことは　すでに凡策なんだよ！
うおおおおお！　きさまッ　カーズ どこまでもくさりきってやがるッ！
二重ショック！！ 幽霊なんかに出会うよりも　もっと奇怪な遭遇
今年のＪＯＪＯは厄年か！
てめえの次にはくセリフは 「思い知ったか・・・この原始人・・・が」・・・だ・・・
オメーのような単純脳ミソのやるパターンは すべてよまれてるってことわかんねーのか　このウスバカ！
勝利というのは　戦う前に全てすでに決定されている
そのサイフは　私が彼にあげたものですよ　おまわりさん
「相手が勝ち誇ったとき　そいつはすでに敗北している」 これがジョセフ・ジョースターのやり方 おいてますます健在というところかな
おれの名は『ブローノ・ブチャラティ』答えろよ 質問はすでに・・・『拷問』に変わっているんだぜ
吐き気をもよおす『邪悪』とはッ！ なにも知らぬ無知なる者を利用する事だ・・・！！ 自分の利益だけのために利用する事だ・・・
予測できるのは・・・ボス 「矢」や「弾丸」の動きだけか？ オレが何をするかは予測できなかったな・・
『任務は遂行する』『部下も守る』 「両方」やらなくっちゃあならないってのが 「幹部」のつらいところだな覚悟はいいか？ オレはできてる
オレは「正しい」と思ったからやったんだ
てめーはおれを怒らせた
やれやれだぜ
やれやれ　子供だからってなめんなよ
おれには『悪霊』がとりついている・・・
注意深く観察して行動しろ
きさまの兄貴はいっていたぜ・・・ ばれなきゃあイカサマじゃあねえんだぜ・・・
裁くのは　おれの『スタンド』だッー！！
テメーはこの空条承太郎が　じきじきにブチのめす
なに・・・　敗者が『悪』 それじゃあー　やっぱりィ　てめーのことじゃあねーかアーッ
おれが思うたしかなことは ＤＩＯ！てめーのつらを次みた瞬間 オレはたぶん・・・プッツンするだろうということだけだぜ
動けねえのに背後から近づかれる気分ってのは たとえると・・・水の中に１分しか潜ってられない男が・・・ 限界１分目に　やっと水面で呼吸しようとした瞬間！ グイイッ・・・と　さらに足をつかまえられて 水中にひきずり込まれる気分に似ているってえのは ・・・どうかな？
自分のことというのは自分ではなかなか見えにくい・・・ 気がつかねーのか　本当にてめーが幸運だったのは 「いままでだ」ということに・・・ 鼻を折られた程度で済んでいたのが・・・ 真の幸運だったということによぉーッ
よくたったひとりで孤独に闘ったと思うよ・・・ 尊敬するぜ康一くん・・・成長したな
このままでいい
ちがうね・・・『道』というものは自分で切り開くものだ・・・ ということでひとつ　この空条承太郎が・・・ 実際に手本を見せてやるぜ　道を切り開くところのな
ああうそだぜ！　だが・・・マヌケは見つかったようだな
やれやれ ま・・・確かに硬い歯だがたたき折ってやったぜ・・・ ちとカルシウム不足のダイヤモンドだったようだがな
「悪」とは　てめー自身のためだけに弱者を利用し ふみつけるやつのことだ！！
『社会的な価値観』がある。 そして『男の価値』がある。 昔は一致していたがその“２つ”は 現代では必ずしも一致はしてない。 “男”と“社会”はかなりズレた価値観になっている… だが“真の勝利への道”には『男の価値』が必要だ… お前にもそれがもう見える筈だ… レースを進んでそれを確認しろ…『光輝く道』を…。 オレはそれを祈っているぞ。そして感謝する
乗り越えなくてはならないものがある 『神聖さ』は『修行』だ だから君たちに全てを隠さずに話している…… 「能力」にも「目的」にも オレにはウソはない
公正なる「果し合い」は 自分自身を人間的に生長させてくれる
卑劣さはどこにもなく…漆黒なる意志による殺人は 人としての未熟なこのオレを聖なる領域へと高めてくれる
ようこそ…『男の世界』へ…
受け身の『対応者』はここでは必要なし
ここを出て行きたければ オレを殺すしかない それが進むべき道 いずれ決断しなくてはならない事柄……
よろしくお願い申し上げます
地獄でやってろ
いいか　おれはね　普通は説教なんてしない 頭悪いヤツってのは言ってもわからねーから 頭の悪いヤツなんだからよ
おれは誓ったッ！ 我が妹の魂の尊厳とやすらぎは そいつの死でもってつぐなわなければ取りもどせんッ！ おれの『スタンド』がしかるべき報いを与えてやるッ！
なんだか！なんだか！ すっごく楽しいことをしている気がするけど 子供だからわからないッ・・・ケハハハハハハ
ＤＩＯの野郎に近づくために走っているんだッ！
おれが最後にみせるのは 代々受け継いだ未来にたくすツェペリ魂だ！ 人間の魂だ！
もう動けまい！　きさまはフィルムだ！　写真のフィルムだ！ 真っ黒に感光しろ！　ワムウ！
だからオレだってなんかしなくっちゃあな・・・ カッコ悪くてあの世にいけねーぜ・・・
一点集中！
君が手をのばすところをみたいからだよ その美しい手をできるだけ長い間見ていたい・・・
喰らってイナカへ帰りな　ジョースターッ
スピードワゴンはクールに去るぜ
その紳士に手を出すことは・・・ このスピードワゴンがゆるさねぇ！
さあ　お仕置きの時間だよ　ベイビー
『我が名は花京院典明』 『我が友人アヴドゥルの無念のために 左にいる友人ポルナレフの妹の魂のやすらぎのために』 『死をもってつぐなわせてやる』
だからこのゲームで　この花京院典明に 精神的動揺による操作ミスは決してない！ と思っていただこうッ！
なに？　ひきちぎられるとくるいもだえる？ わたしの「法皇の緑」は・・・ひきちぎるとくるいもだえるのだ 喜びでな！
あて身
お前はこれから 『できるわけがない』というセリフを４回だけ言っていい
だがクセなんて直さなくていい もっとクセを出して走れ
お前に全ては説明したッ！ LESSON４（フォー）だッ！ 『敬意を払え』ッ！
「ミス待ち」だと？　ジョニィ あいつがミスるかもだと？　そんなのはダメだ！ そんなのは敗北をヤツの脳ミソに 「刻みつけてやる」とはいわねぇッ！
オレは『納得』したいだけだ！ 『納得』は全てに優先するぜッ！！ でないとオレは『前』へ進めねぇッ！ 『どこへ』も！『未来』への道も！探す事は出来ねえッ！！
あいつは決して『相手より先に銃を撃たなかった…』。 “あえて”…だ。 ヤツは『相手に先に撃たせた』。 この草原でDioの道がベストというなら、 そのラインは敵に差し出してやるのもいいだろう… “あえてな”。
オレに意見を求めたのか？だが、言わしてもらえるなら、 ヤツには、決して乗れない……あれじゃあ乗れないね。 逆に言うなら、あれに乗れたら、人間を越えれるね。
『黄金長方形の軌跡』で回転せよ！ そこには『無限に続く力（パワー）』があるはずだ
あんたが護衛するのは 『国王』か『大統領』じゃなきゃあダメか…？ 『女の子』でもいいだろ…？
誰かが最初に右のナプキンを取ったら 全員が「右」を取らざるを得ない もし左なら全員が左側のナプキンだ そうせざるを得ない これが「社会」だ
『試練』は「強敵」であるほど良い…
来いッ！　先に撃たせてやるッ！
『試練』には必ず「戦い」があり 「流される血」がある
だが正しい決断をお願いする！
『兵は詭道なり』
おっ　青ざめたなＪＯＪＯ・・・図星だろう？ ズバリ当たってしまったか・・・ なァーッ！？
おれは「炎のエシディシ」　熱を操る流法！
くらってくたばれ　『怪焔王』の流法！！
ほう・・・鋭い・・・いい目をするようになったな・・・ だがそのようなまなざしを持つ者がおれに会った時・・・ そいつは早死にする
オラオラオラオラオラオラアッ
おまえ何やってるんだジャイロ・ツェペリーッ！ スピードはともかく理由（わけ）を言えーッ！
僕にあんたを信じさせてくれ
信じたい…もしかして「いい人」なのかも？と… 信じたい　僕の行動の方が「悪」なのかもしれないと… でも「保証」がない
この『物語』は、ぼくが歩き出す物語だ。 肉体が……という意味ではなく、青春から大人という意味で…… ぼくの名前は『ジョニー・ジョースター』 最初から最後まで、本当に謎が多い男、 「ジャイロ・ツェペリ」と出会ったことで……
「飢えなきゃ」勝てない ただしあんなDioなんかより ずっとずっともっと気高く「飢え」なくては！
このレースに出て 死にかけていたぼくの心は生き始めた… 「遺体」をあきらめたら きっとぼくの心は再び死ぬ
理解できたようだね・・・えらいね〜〜〜
そんじゃあブン殴ってもいいなあッ！
大人の面子にかけてなぶり殺してやるゥ〜っ
フフフフフフフ　そろそろ　いいかな？ 弱い者いじめ・・・大ィィィー好きッ　オレってえらいネェー