#!/usr/bin/perl -w use strict 'refs'; use lib '..'; use utf8; use Encode; use MIME::Base64; binmode STDOUT, ":utf8"; binmode STDIN, ":utf8"; sub tokugi { $_=<STDIN>; return "弓" if /弓/; return "騎馬" if /騎馬/; return "槍" if /槍/; return "銃" i</stdin>…
リアルではとりあえず職場関連で3袋ほど 全部嫁チョコへ変身
引用をストックしました
引用するにはまずログインしてください
引用をストックできませんでした。再度お試しください
限定公開記事のため引用できません。