平成30/ 2018-12-19 23:47
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");