Changes between Version 31 and Version 32 of Perl

Timestamp:

04/11/07 10:13:01 (18 years ago)

Author:

atzm

Comment:

--

Perl

@@ -652 +652 @@
 }
 }}}
+
+== 時刻/日付操作 ==
+=== strptime ===
+ふざけたことに標準では strptime を使うことができないので，以下のいずれかを別途インストールする必要がある．
+両者で strptime 関数への引数の順番が違うので注意．
+ * [http://search.cpan.org/dist/POSIX-strptime/lib/POSIX/strptime.pm POSIX::strptime]
+{{{
+#!perl
+use POSIX qw(strftime mktime locale_h);
+use POSIX::strptime;
+
+setlocale(LC_TIME, 'C');
+
+my $date  = '08:52:20 JST Wed Apr 11 2007';
+my $fmt   = '%H:%M:%S %Z %a %b %d %Y';
+my @times = POSIX::strptime( $date, $fmt );
+my $epoch = mktime( @times[0..5] );
+
+print  "before: $date\n";
+printf "after:  %s\n", strftime( $fmt, localtime($epoch) );
+}}}
+{{{
+#!sh
+$ perl hoge.pl 
+before: 08:52:20 JST Wed Apr 11 2007
+after:  08:52:20 JST Wed Apr 11 2007
+}}}
+   * POSIX の strptime ではナノ秒の解析はできない
+   * setlocale しないとバグる可能性大なので注意
+ * [http://search.cpan.org/dist/DateTime-Format-Strptime/lib/DateTime/Format/Strptime.pm DateTime::Format::Strptime]
+{{{
+#!perl
+use POSIX qw(strftime);
+use DateTime::Format::Strptime qw(strptime);
+
+my $date  = '08:52:20.343 JST Wed Apr 11 2007';
+my $fmt   = '%H:%M:%S.%N %Z %a %b %d %Y';
+my $dt    = strptime( $fmt, $date );
+my $epoch = $dt->epoch();
+
+print  "before: $date\n";
+printf "after:  %s\n", strftime( $fmt, localtime($epoch) );
+}}}
+{{{
+#!sh
+$ perl hoge.pl
+before: 08:52:20.343 JST Wed Apr 11 2007
+after:  08:52:20.%N JST 水  4月 11 2007
+}}}
+   * こちらはナノ秒の解析も OK
+   * setlocale しなくてもよしなに解析してくれる
+   * 実行結果について補足
+     * 日本語で表示されているのは，になっているので POSIX の strftime が勝手に整形したから (ロケールが ja_JP になっているため)
+     * {{{%N}}} は POSIX の strptime がナノ秒を認識できないから