CGI-BBS > CGI > Perl > 数字の中の定位置にドットを置く


カレッヂ
カレッヂ


質問者 Octo  投稿日 9/14(金) 16:39:01
8桁の数値で表されている日付に区切り記号のドットを置く方法はありますか?
たとえば、今日は2001年9月14日で、これが20010914と表されて
いるわけですが、これを2001.09.14にすることはできるでしょうか。
回答者 しあわせのツボ  [削除]  投稿日 9/14(金) 17:13:32
対象の数値が$yyyymmddに入っているとすると、
$yyyymmdd =~ s/^(\d{4})(\d\d)(\d\d)$/$1\.$2\.$3/;
でどうでしょう。

$yyyymmdd =~ s/(....)(..)(..)/$1.$2.$3/;
でも大丈夫だとは思いますが。
質問者 Octo  [削除]  投稿日 9/14(金) 19:35:25
ありがとうございます。
これで一度やってみます。

返信(回答)する


Web裏技