2012年9月28日金曜日

Perl で sscanf

Perl で例えば 2012年9月1日 のような日付を、2012/09/01 のような形式に変換したい場合があります。以下はそのための、sscanf を使ったサンプルです。



use String::Scanf;

   my $hiduke0 = "2012年9月1日";
   my ($a,$b,$c)=sscanf('%d年%d月%d日',$hiduke0);
   printf('%4d/%02d/%02d'. "\n" , $a,$b,$c);


0 件のコメント:

コメントを投稿