gaggitのブログ

コーディング、ガジェット、TIPS関連、FX

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);