sironekotoro https://blog.hatena.ne.jp/sironekotoro/ sironekotoroの日記 https://sironekotoro.hateblo.jp/ 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時$min分$sec秒\n" それに対する結城先生の回答 my ( $hour, $min, $sec ) = split(/:/ , $time); 鮮やかすぎ！ 4-3 my $last = @array; if ( 0 <= $index, $index <= $last ) { print "$arra… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fsironekotoro.hateblo.jp%2Fentry%2F2013%2F11%2F24%2F160401" title="Perl言語プログラミングレッスン[入門編] 第４章 - sironekotoroの日記" 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 2013-11-24 16:04:01 rich https://sironekotoro.hateblo.jp/entry/2013/11/24/160401 1.0 100%