{"image_url":null,"blog_title":"sironekotoro\u306e\u65e5\u8a18","published":"2013-11-24 16:04:01","width":"100%","blog_url":"https://sironekotoro.hateblo.jp/","provider_name":"Hatena Blog","type":"rich","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fsironekotoro.hateblo.jp%2Fentry%2F2013%2F11%2F24%2F160401\" title=\"Perl\u8a00\u8a9e\u30d7\u30ed\u30b0\u30e9\u30df\u30f3\u30b0\u30ec\u30c3\u30b9\u30f3[\u5165\u9580\u7de8] \u7b2c\uff14\u7ae0 - sironekotoro\u306e\u65e5\u8a18\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","description":"4-2 use strict; use warnings; my $time = '01:23:45'; my @array = split( ':', $time ); my ( $hour, $min, $sec ) = @array[ 0, 1, 2 ]; print \"$hour\u6642$min\u5206$sec\u79d2\\n\" \u305d\u308c\u306b\u5bfe\u3059\u308b\u7d50\u57ce\u5148\u751f\u306e\u56de\u7b54 my ( $hour, $min, $sec ) = split(/:/ , $time); \u9bae\u3084\u304b\u3059\u304e\uff01 4-3 my $last = @array; if ( 0 <= $index, $index <= $last ) { print \"$arra\u2026","version":"1.0","url":"https://sironekotoro.hateblo.jp/entry/2013/11/24/160401","author_name":"sironekotoro","categories":[],"title":"Perl\u8a00\u8a9e\u30d7\u30ed\u30b0\u30e9\u30df\u30f3\u30b0\u30ec\u30c3\u30b9\u30f3[\u5165\u9580\u7de8] \u7b2c\uff14\u7ae0","author_url":"https://blog.hatena.ne.jp/sironekotoro/","height":"190","provider_url":"https://hatena.blog"}