平成31/ 2019-04-26 01:55
PERL/ 正規表現 置換 切り出し

$value[12] = $date;
$value[12] =~ s/\//-/g;
$value[12] =~ /^(\d+-\d+-\d+)\s+\([a-zA-Z]+\)\s+(\d+:\d+:\d+)/;
$value[12] = $dbh->quote("$1 $2");