No.4ベストアンサー
- 回答日時:
#2補足>
第2週の水曜日と第2水曜日は、違いますが、第2水曜日だとすると、
CPANモジュールのDate::Calc を使うと以下のような感じ。
----------------------------------------------------------------
use Date::Calc qw(Today Decode_Day_of_Week Nth_Weekday_of_Month_Year);
($year, $month, $day) = Today();
$weekday = Decode_Day_of_Week("Wed");#水曜日のこのプログラムでの表現:3(月曜-日曜:1-7)
($y, $m, $d) = Nth_Weekday_of_Month_Year($year, $month, $weekday, 2);#第2水曜
if($day > $d){
print "Aの処理を実行";
} else {
print "Bの処理を実行";
}
No.3
- 回答日時:
「今日が」というなら簡単に算出できます。
($mday, $wday) = (localtime())[3,6];
@week = qw/日 月 火 水 木 金 土/;
print "今日は第", int($mday/7)+1, $week[ $wday ], "曜日です";
つまりint($mday/7)+1==2で、$wday==3なら第2水曜日です。
「ある日が」となると曜日の取得が必要になります。
Time::Localモジュールからtimelocalで指定日のUnixTimeを得てlocaltimeで曜日を取得するという流れになると思います。ツェラーの公式使ってもいいんですが。
この回答への補足
参考になるスクリプトありがとうございます。
NO2に補足しましたが、今日が今月の第2水曜日を過ぎているか、いないかをフラグとして取得したと考えております。
応用ができませんのでどうぞよろしくお願いします。
No.1
- 回答日時:
Perlが分からないので、アルゴリズムの話しかできませんが、参考になれば。
。。1日の日付の曜日を与えます。(例えば、1日が金曜日だとします)
金曜日の場合、1から2を引きます。(金→木→水、と2つ前が水曜びだから)※
-1という数字が分かったら、そこに7を足します。
すると、6日が第2週の水曜日です。
※日、月、火はそれぞれ3,2,1を加えて、木、金、土は1,2,3を1から引けば、あとは7日を足せば良いということです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
perlをバージョンアップしたら...
-
Perlのエラーについてご教授く...
-
Windows10においての『Perl』の...
-
テキストファイルで提出とは?
-
Perl テーブル内の文字列取得 ...
-
perl の open について教えてく...
-
Perl言語について。
-
ファイルをディレクトリ分配の...
-
アルファベットに付いて質問し...
-
#!/usr/bin/perlで書きだしたCG...
-
perlのflock関数でロックをかけ...
-
AI sisterとは、偽物の人ですか?
-
bashスクリプト
-
ファイルアイコンの左下に緑の□...
-
perlプログラミング 空白行削除
-
perlでリテラル値はメモリにど...
-
perlで2次元配列をサブルーチ...
-
Perlで時間の計算
-
perlについて
-
perlのrequireの動き方について...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
月の第一週とは
-
エクセルで毎月第2週日の水曜日...
-
週2回のペースって だいたい何...
-
毎○曜日って、使いますか?
-
[Excel] ある日の曜日が当月の"...
-
Excelで第一〇曜日を求める方法...
-
VBA。複数のChangeイベントをま...
-
ユーザー定義の(aaa)
-
6月の第2 第4火曜日は何日...
-
毎週同じ曜日にラブホに行くと...
-
日本語問題 昨日は何曜日ですか...
-
日付から曜日を求めたい
-
フローチャート 九九
-
曜日と曜の使い分けがわかりま...
-
平日朝の国道246線混雑状況につ...
-
今週とは何曜日から何曜日まで...
-
Excel VBA 第〇△曜日の場合休日...
-
thunderbird 送信日時の曜日表示
-
指定曜日にMsgBox表示は可能で...
-
曜日のなぞ
おすすめ情報