Perlでの文字列の置換 暫定対処
正規表現と言ったら、いまだにsedだったりしますが、Perlの正規表現で文字列の置換(抽出)がうまく行かなったので、その例と対処方法を記しておきます。
例
文字列:2017-07-28T12:00:00Z
置換(抽出)したい文字列:2017-07-28
$data="2017-07-28T12:00:00
×
my $date=~ ($data =~ /([0-9]{4}-[0-9]{2}-[0-9]{2})T.*/);
○
(my $date, my $temp)=~ ($data =~ /([0-9]{4}-[0-9]{2}-[0-9]{2})T(.*)/);
上記で、とりあえず日付だけ抽出することが、できました。
固定文字列なので、substr関数のほうが、記述も簡単で処理も速いのは十分、承知していますが、ここではあくまで例として。。。
my $date = substr($data,0,10);