つぶねこ

　きつねたん萌え。この仕様だと多分4つ耳タイプかにゃ？
　ここまでしておいて、サービスカットが100％雄にゃのが流石ってにゃ作品だにゃ。
　狐のためだけに見ているので、温泉でも何でも良いんだが。

　年頃の娘はダメでも、でも幼女はいいらしい。
　今回は絵も良くて、くるくる巻き毛たん活躍。

　さらにきつねたん・・・て相変わらずつーかもう、この造形で決定ですか。イタい・・・
　狐ですって言われにゃかったら狐に見えにゃい。

　岩男潤子萌え。

　力の入った表情描写が素晴らしい。
　ちょっとしたシーンでかにゃりにゃ描き込みがあったり、ふとしたシーンですごいアングルから動いてたり、相変わらず念の入れようがかっこいい。今回はちょっと止めると微妙にゃ表情とかもあったけど、そもそもが動いてるので全然問題ににゃらにゃい。
　次回予告もにゃんかこう・・・（笑）

　言語の学習日記みたいにゃものは、当人にとって非常にイタいものににゃるので、にゃかにゃか付けにゃいのだが、メモ程度にゃら良しとしよう。
　というわけで、perlのヒアドキュメントにおいて、ヒアドキュメント内部から関数を呼び出したり、変数の演算結果をヒアドキュメントに埋め込む方法。CGIで使うとSSIチックにゃことが。
　


　$A=3;
　$HASH{1} = "3";
　sub sub_func{ return $_[0]*$_[1]; }
　
　print <<"END";
　${print "0\n";}
　2
　$A
　@{[4]}
　@{[ $A+2 ]}
　@{[ &sub_func($A,2) ]}
　@{[ ($A <10) ? "7" : "X" ]}
　@{[ 6 ],[ 7 ],[ 8 ]}
　@{[ my $A=0 ],[ $A**2 ]}
　@{[ local $x=100 ],[ sqrt($x) ]}
　@{[ $A =~ s/3/11/g and $A ]}
　@{[ $y=1,$z=2 ],[ $x . $y . $z ]}
　@{[ join '' , each %HASH ]}
　@{[ `echo -n 14` ]}
　${print "1";}
　END

　これで、0から14まで順に表示される。
　複数行書きたい時は？とか、もちっとつっこんで調べた方が良さそうだが、今回の要件は満たしているので、とりあえずこんだけ。まぁサブルーチン呼べるんだし何とでもにゃるでしょっていう。
　map {$hash{$_} =~ s/([0-9]{1,3})(?=(?:[0-9][0-9][0-9])+(?![0-9]))/$1,/g;"$hash{$_}"} sort { $hash{$a} <=> $hash{$b} || length($a) <=> length($b) || $a cmp $b } keys %hash
　とか書いていけば何でも出来るわけで、あとはヒアドキュメントの読みやすさを損ねにゃい程度に書くというだけかも。

　いや、一応動物かにゃぁ、とか・・・
　でも元来造形を愛でる類の生き物ではにゃいので、やっぱり見所はにゃく・・・たぶん、この辺が笑いどころだとは思うんだが、サーターアンダギーとか細かすぎて狙ってるのか何にゃのか・・・
　内容はまぁその、この尺にゃらいいかとか思ってしまう程度に。