perl - Perl で今日が月曜日であることを確認する方法は?

Question

Perlで今日が月曜日かどうかを確認するにはどうすればよいですか?

どのモジュールをインストールする必要がありますか?

誰かが例を手伝ってくれますか?

Answer 1

最も簡単な方法は、を使用することlocaltimeです。値のリストを返します。これらの 7 番目は、日曜日から始まる平日です。したがって、Monday の値は 1 です。引数が指定されていない場合は、必要な現在の時刻 ( time) が使用されます。

if ( (localtime)[6] == 1) {
  print "Today is Monday!\n";
}

必要なのはインデックス 6 (7 番目の戻り値) だけなので、括弧を付けlocaltimeて強制的にリストに入れ、そのリストからインデックスに直接アクセスできます。そのスカラー値を と比較できます1。

localtime組み込み関数です。Perl Core に含まれているモジュールでさえも、追加のモジュールは必要ありません。これはすぐに使用できます。