- 締切済み
perlについて質問です。
perlの曜日から日付を表示するスクリプトについて質問です。 （問）１月１日が土曜日の平年（例えば、２０１１年）について曜日の入力データからその月日を全て表示する。 （実行結果） 曜日を入力してください（1:日-7:土）： 4↓ 水曜日の月日は ： 1月：5,12,19,26 2月：2,9,16,23 3月：2,9,16,23,30 4月：6,13,20,27 5月：4,11,18,25 6月：1,8,15,22,29 7月：6,13,20,27 8月：3,10,17,24,31 9月：7,14,21,28 10月：5,12,19,26 11月：2,9,16,23,30 12月：7,14,21,28 このように表示するために「for命令」と「while命令」を使用して作成したいのですがどのように作成できますでしょうか？（printとchomp使用） 回答よろしくお願いいたします。
- ma1027ko
- お礼率0% (0/1)
- その他（学問・教育）
- 回答数1
- ありがとう数0
- みんなの回答 （1）
- 専門家の回答
みんなの回答
- toraneko75
- ベストアンサー率51% (27/52)
回答No.1
カテゴリーが違うような気もしますが・・ 入力を受け付けてchompして、 Time::Localで2011年1月1日の適当な時刻（例えば12:30:30）のエポック秒を作って Whileループで2011年であることをチェックしつつ、 forループで24*60*60秒ずつエポック秒に加算して localtimeで曜日と月と日を取り出して、 曜日が一緒（日曜日が0になってるのに注意）である月と日を抽出して それをprintするといった感じではいかがでしょうか？ http://d.hatena.ne.jp/perlcodesample/20081009/1223570590 http://d.hatena.ne.jp/perlcodesample/20081014/1224168958
