aql https://blog.hatena.ne.jp/aql/ あくる日 https://aql.hatenablog.com/ Perl ランダムジャンプのほうで、ちょっとミスというかなんというか。 $array->[ int rand $#{$array} ]->{uri}こうすると、ひとまずだいたい動くんだが、よく考えてみるとちょっとだけおかしい。分解して考ると…intは引数の小数点以下を切り捨てる、randは０以上引数未満で乱数を返す、$#{$array}は配列の最後尾のインデックスを返す…そう、リストの最後にはジャンプしないのだ。リストの最後まできちんとジャンプするためには、次のようにすれば良い。 $array->[ int rand scalar @$array ]->{uri}配列はスカラーで評価すれば中の要素数を返… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Faql.hatenablog.com%2Fentry%2F20050603%2Fp1" title=" 前回のミス - あくる日" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2005-06-03 00:00:00 rich https://aql.hatenablog.com/entry/20050603/p1 1.0 100%