2014-11-18 perlの正規表現 data = '2014-11-18 19:00:45'; ($nen,$tuki,$hi) = split(/[\-\/\s:]/,$data); ↓ $nen 2014 $tuki 11 $hi 18