前回の課題２について考えてみます。 （先週追加したヒントに沿って解説します）
課題２：日付を与えてその曜日を表示させるプログラムを作りなさい。まずそのスクリプトがどんな機能を持つ部分から構成されるべきか 考えてみます。
- まず、指定した「年」「月」「日」の３つをそれぞれ 対応する変数に格納します。
- 1 で得られた状態をもとに、「曜日」を数値として計算します。
- 2 で得られた数値から「日月〜土」の文字を得ます。
- 最終的な出力を行います。
まず、cal.pl の内容を新しいファイル youbi.pl に貼り付けます。 カレンダー表示のための部分（その月の日数を求める部分、カレンダーの タイトルを出力する部分、カレンダーの曜日を出力する部分、カレンダーの 本体部分）はばっさり削除してしまってかまいません。 ただ削除したものを復活させる必要があるかもしれないし、削除しすぎる おそれがあるので、本当に消すのではなく行頭に「#」を付けてコメント にしてしまえばいいでしょう。
#!/usr/bin/perl # コマンドライン引数をもらう die "usage: cal month year\n" unless @ARGV == 2; ($mon, $year) = @ARGV; # その月の末日を計算(2行目は閏年の計算) #$lastday = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)[$mon - 1] # + ($mon == 2 && ($year % 4 == 0 && $year % 100 != 0 || $year % 400 == 0)); #print " $year/$mon\n S M Tu W Th F S\n"; #foreach((" ") x &getweek($year, $mon), 1 .. $lastday){ # printf ('%2.2s ' , $_); # print "\n" unless ++$days % 7; #} #print "\n"; exit; # 曜日を得る関数 sub getweek{ local($year, $month) = @_; if($month == 1 || $month == 2) {$year--;$month += 12;} int($year + int($year/4) - int($year/100) + int($year/400) + int((13*$month+8)/5) + 1) % 7; }
上のステップ１に対応させるためには引数を２から３に変更する必要が あります。日にちの値を格納する変数は $day とでもしてください。
（変更部分のみ表示）
ちゃんと値が格納できたかどうかそれらをprintを用いて表示させてみて下さい （これだけなら曜日を求める関数も不要ですが、特に削除する必要は ありません）。
上ができたら次はステップ２です。考えられる方法は２つあります。 まずはもともとの getweek をそのまま使って、その月の１日の 曜日を計算し、その値と $day から該当する日にちの曜日を求める方法。 もうひとつは getweek を書き直して３変数の関数にすること。 どちらも同じようなものですので、ここではそのまま使うことにします。
（コメント部は省略）
die "usage: jperl youbi.pl year month day\n" unless @ARGV == 3; ($year, $mon, $day) = @ARGV; $i = ( &getweek($year, $mon) + $day - 1 ) % 7; print "$year年$mon月$day日は$i曜日です\n"; sub getweek{ local($year, $month) = @_; if($month == 1 || $month == 2) {$year--;$month += 12;} int($year + int($year/4) - int($year/100) + int($year/400) + int((13*$month+8)/5) + 1) % 7; }
ステップ３では数値から曜日を表す漢字を得ます。 これには ('日', '月', '火', '水', '木', '金', '土')という リストを用意し、その要素を番号の指定により得ればよいでしょう。
（コメント部は省略）
die "usage: jperl youbi.pl year month day\n" unless @ARGV == 3; ($year, $mon, $day) = @ARGV; $i = ( &getweek($year, $mon) + $day - 1 ) % 7; $youbi = ('日', '月', '火', '水', '木', '金', '土')[$i]; print "$year年$mon月$day日は$youbi曜日です\n"; sub getweek{ local($year, $month) = @_; if($month == 1 || $month == 2) {$year--;$month += 12;} int($year + int($year/4) - int($year/100) + int($year/400) + int((13*$month+8)/5) + 1) % 7; }別解も載せておきます：
#!/usr/bin/perl # コマンドライン引数をもらう die "usage: jperl youbi.pl year month day\n" unless @ARGV == 3; ($year, $month, $day) = @ARGV; @youbi = ('日', '月', '火', '水', '木', '金', '土'); print "$year年$month月$day日は$youbi[&getdayofweek($year,$month,$day)]曜日です\n"; # 曜日を得る関数 sub getdayofweek{ local($year, $month, $day) = @_; if($month == 1 || $month == 2) {$year--;$month += 12;} int($year + int($year/4) - int($year/100) + int($year/400) + int((13*$month+8)/5) + $day) % 7; }よくあるミスをあげておきます。うまくいかないときはこういうところに注意しましょう。
- 文の最後の「;」(セミコロン)を忘れる。
- 文字列を「"」や「'」で囲むのを忘れる。特に閉じるのを忘れる。
- ブロックの「{ }」を忘れる。特に閉じるのを忘れる。
- 変数を表す「$」や「@」を忘れる。
- 後ろで定義しているサブルーチン名に「&」を付け忘れる。
- 変数名を間違える。(PerlではCなどと違って宣言していない変数が 出てきてもエラーにならないのでミスに気づきにくい)
- 文字列とコメント以外の部分に日本語の２バイト文字がある。 特に全角の空白はみつけにくいので注意。
- 編集しているファイルと実行しているファイルが違っている。
今日のレッスン
さて、いよいよ今度は HTML ファイルを作るスクリプトを書いてみます。
次のようなHTMLファイルを出力することを目標とします (行頭の行番号は説明の都合上つけたものです)： sample01.html:
すでにみた cal.pl と同様に月や年が $mon や $year 変数に格納されている状態とします。 cal.pl の11行目の部分(年・月の行と曜日の行の出力)に対応する部分をまず作ります。 上の sample01.html の1行目から18行目までを出力しなければなりません。
次のように記述すればとりあえず出力できます。 注意するのは"で囲まれた文字列の中に " という文字自身をいれるときは、 文字列の終端の"と区別するために前に\をつけて \" としなければならないことです。
でもこれでは print や \n をずいぶん何度も書かなければなりません。 実は""で囲む文字列は複数行に渡ることができ、 しかもそのとき改行文字は改行文字として扱われるので、 次のように書きなおすことができます。
しかしこれでも " の部分を \" としなければならず、不便です。 実はさらに次のようにかくこともできます。 赤い HERE は識別子で、適当に決めます。 通常の文字列の場合と同様に、最初の識別子を囲む引用符号の種類で、 中の変数の変数置換を行なうかどうかが変わります。 引用符号を省略すると " で囲まれたものと見なされます。
それでは、cal.pl を hcal.pl という名前でコピーして、 11行目から18行目までの行頭に#を記述してコメントにして下さい。 そして上のいずれかをコメントした部分のかわりに挿入します (下の青い色の部分)。 これだけですと表が未完成ですので、日付のはいる部分は後回しにして、 ともかく sample01.html の64行目以降の部分も出力するように、 上の部分をまねて下の赤い色の部分を適切に記述して下さい。
#!/usr/bin/perl # コマンドライン引数をもらう die "usage: cal month year\n" unless @ARGV == 2; ($mon, $year) = @ARGV; # その月の末日を計算(2行目は閏年の計算) $lastday = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)[$mon - 1] + ($mon == 2 && ($year % 4 == 0 && $year % 100 != 0 || $year % 400 == 0)); #print " $year/$mon\n S M Tu W Th F S\n"; print <<"HERE"; <HTML> <HEAD> <TITLE>$year年$mon月の予定</TITLE> </HEAD> <BODY BGCOLOR="#FFFFFF"> [<A HREF="perl02.html">「出力の工夫」に戻る</A>] <CENTER> <H1>$year 年 $mon 月</H1> <TABLE BORDER BGCOLOR="#C0C0FF"> <TR BGCOLOR="#80FF80"> <TH WIDTH="100">日</TH> <TH WIDTH="100">月</TH> <TH WIDTH="100">火</TH> <TH WIDTH="100">水</TH> <TH WIDTH="100">木</TH> <TH WIDTH="100">金</TH> <TH WIDTH="100">土</TH> </TR> HERE #foreach((" ") x &getweek($year, $mon), 1 .. $lastday){ # printf ('%2.2s ' , $_); # print "\n" unless ++$days % 7; #} #print "\n"; exit; print "</TABLE> ┓ ┃ ┃ <== ここを適切に記述する ┃ "; ┛ # 曜日を得る関数 sub getweek{ local($year, $month) = @_; if($month == 1 || $month == 2) {$year--;$month += 12;} int($year + int($year/4) - int($year/100) + int($year/400) + int((13*$month+8)/5) + 1) % 7; }
hcal.pl をセーブして、月と年を指定して実行してみて下さい。
jperl hcal.pl 11 2001うまくいけば画面に表示されるはずです。 エラーがおきた場合はそのエラーメッセージをよく読んで修正を加えて下さい。 画面に表示するだけではブラウザで見ることができませんので、jperl hcal.pl 11 2001 > tmp.htmlと、tmp.html というファイルにリダイレクトして下さい。 tmp.html というファイルができますので、これをブラウザで見てみましょう。 曜日だけのカレンダーができたでしょうか。
今回の課題
上のhcal.plの赤い色の部分を適当に補ったものを、 自分のＨＰに載せなさい。実際に出力された１行だけのカレンダー(?)も載せなさい。 どちらもリンクでかまいません。 完成できなくても、できたものを示しなさい。 なお、「〜に戻る」という部分は自分の環境にあわせて、適当に変更してください。
次回は本体部分を出力できるように、現在コメントになっている foreach ループ部を復活させ、書き換えます。お楽しみに。