【perl】split関数〜時刻を時間・分・秒に分ける〜
#! usr/bin/perl use strict; use warnings; my $item = '01:23:45'; my ($hour, $min, $sec) = split (/:/,$item); print "$hour時$min分$sec秒です。\n";
#! usr/bin/perl use strict; use warnings; my $item = '01:23:45'; my ($hour, $min, $sec) = split (/:/,$item); print "$hour時$min分$sec秒です。\n";