0669デフォルトの名無しさん垢版 | 大砲2018/06/15(金) 22:34:53.18ID:+TY+tyj1 リストコンテキストで評価すれば$1とか使わず代入できる ($hours, $minutes, $second) = ($time =~ /(\d\d):(\d\d):(\d\d)/); ttp://perldoc.jp/docs/perl/5.22.1/perlretut.pod#Extracting32matches