PerlでYYYY-mm-dd HH：MM：SSに素早く到達する

Question

Perlスクリプトを書くときに、YYYY-mm-dd HH:MM:SS（たとえば、2009-11-29 14:28:29）という形式の文字列で表される現在の時刻を取得する必要があることがよくあります。これを行うには

私自身は、この非常に面倒なパス取っ見つける：localtimeのを検索するために

• man perlfunc
• /localtimeを - manページ
の関連セクションに到達するために5回（ / + \n）を繰り返し
• 文字列($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);をマンページから私のスクリプトにコピーします。
• お試しください
• 覚えておいてください。＃1：現在の年を取得するには、1900〜$ yearを追加する必要があります。
• お試しくださいmy $now = sprintf("%04d-%02d-%02d %02d:%02d:%02d", $year+1900, $mon, $mday, $hour, $min, $sec);
• 覚えておいてください。＃2：現在の月を取得するには1ドルを$ monに追加する必要があります。
• お試しくださいmy $now = sprintf("%04d-%02d-%02d %02d:%02d:%02d", $year+1900, $mon+1, $mday, $hour, $min, $sec);
• 完了！

上記のプロセスは機能しますが、それは最適ではありません。私はよりスマートな方法があると確信していますので、私の質問は簡単です：

Perlで現在の日付/時刻のYYYY-mm-dd HH:MM:SSを取得する最も簡単な方法はありますか？

ここで、「簡単」には、「書きやすい」と「覚えやすい」の両方が含まれます。標準POSIXモジュールで

Answer 1

使用strftime：Perlのバインディングでstrftimeへ

$ perl -MPOSIX -le 'print strftime "%F %T", localtime $^T' 

引数がlocaltimeとgmtimeからの戻り値と整合するように設計されました。

Answer 2

汚れた作業を行うためにDateTimeモジュールを使用しないでください。 とを書くのは簡単です！あなたは何が起こっているかわかったら、あなたはタンを取り除くと、数行のコードを保存する得ることができます

use strict; 
use warnings; 
use DateTime; 

my $dt = DateTime->now; # Stores current date and time as datetime object 
my $date = $dt->ymd; # Retrieves date as a string in 'yyyy-mm-dd' format 
my $time = $dt->hms; # Retrieves time as a string in 'hh:mm:ss' format 

my $wanted = "$date $time"; # creates 'yyyy-mm-dd hh:mm:ss' string 
print $wanted; 

：strftime方法はありません

use POSIX qw/strftime/; 
print strftime('%Y-%m-%d',localtime); 

：

use strict; 
use warnings; 
use DateTime; 

my $dt = DateTime->now; 
print join ' ', $dt->ymd, $dt->hms; 

Answer 3

はこれを試してみてください効果的に私の仕事。非常に簡単で効率的です。

---

Answer 4

Time::Piece（Perl 5以降のコア）10）また、strftime関数を持っており、過負荷がlocaltimeのデフォルトとのgmtimeで時間::ワンピースオブジェクトを返すために：

use Time::Piece; 
print localtime->strftime('%Y-%m-%d'); 

またはオーバーライドされlocaltimeのなし

：

Answer 5

Time::Piece::datetime()がTを排除することができます。

use Time::Piece; 
print localtime->datetime(T => q{ }); 

Answer 6

あなただけの人間が読める時間文字列ではなく、その正確な形式たい場合：

$t = localtime; 
print "$t\n"; 

プリント

Mon Apr 27 10:16:19 2015 

または何ロケール用に設定されています。

Answer 7

Iは、以下のブロックを1,000,000回ずつ呼び出す少し試験（VMでFreeBSDでのPerl v5.20.1）を作っ：

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); 
my $now = sprintf("%04d-%02d-%02d %02d:%02d:%02d", $year+1900, $mon+1, $mday, $hour, $min, $sec); 

B

my $now = strftime('%Y%m%d%H%M%S',localtime); 

Cを

my $now = Time::Piece::localtime->strftime('%Y%m%d%H%M%S'); 

A：2秒

B：11秒

C：19秒

これはもちろんのない完全なテストまたはベンチマークであるが、少なくともそれは、以下の結果を0私にとっては再現可能なので、もっと複雑ではあるが、datetimestampを生成することが非常に頻繁に必要な場合は、最初の方法を好むだろう。それはOSに依存しないではなく、かなりの時間がかかるため

（例えばFreeBSDの10.1下）を呼び出す

my $now = `date "+%Y%m%d%H%M%S" | tr -d "\n"`; 

は、このような良いアイデアではないかもしれません。

敬具、 ホルガー

Answer 8

ショートし、必要な甘い、いいえ追加モジュール：例えば

my $toDate = `date +%m/%d/%Y" "%l:%M:%S" "%p`; 

出力は次のようになります。2017年4月25日9時30分33秒AM