過去ログ NO.1164627635
□ ひろたか [2006年11月17日09時04分]こんにちわ。 自動でアンケートが質問できるCGIがないか調べていたところたどりつきました。 そこで一つ質問なんですが、現在のあんQはアンケートの質問を開くと現在の投稿が表示された状態がわかるのですが投稿にクリックしなければ現在の投稿率が解らないようになっているのが理想なのですが、改良と言う事は可能なのでしょうか?
□ NXer [2006年11月17日20時44分] はじめまして。NXerです。
>理想 といわれて気が付きました。
質問用紙方式のアンケートでは確かに項目と回答欄はありますが、 直前までの回答結果が印刷/添付されているのはまれですね。 これは質問用紙の作成、配布、回収、集計にそれぞれ時間を要し た印刷ベースの特徴です。
他方、すえぽんさんなどの提供するアンケートは、アクセス直後に、 結果があればそれを公開して、回答者が結果を参考にして投票、 送信、そして直ちに集計結果を計算して返すことが可能です。
おそらくデジタルアンケートの特徴を生かすという意味ですえぽん さんはあんQを作成されているものと思います。それは、ご指摘の とおり、「理想」つまり予見や先入観のない白紙の状態で回答する ものとは明らかに違います。
>改良
次のような愚案で試してみました。 cgi歴は不明ですが、コピー・ペーストで容易に変更できます。
その1)得票率/%/グラフ表示のフラッグ初期設定 --------------------------------初期設定追加by nxer 45 #得票率表示/非表示フラッグ 1 表示 0 非表示 $scoreview=0; #---------------- 初期設定ここまで ----------------#
その2)サブルーチン分岐 -------------------------------------------- 125 if ($in{'mode'} eq 'reg' || $in{'mode'} eq 'adreg' || $in{'mode'} eq 'change') { ®ist; } #■ elsif ($in{'mode'} eq 'vote') { &vote; } #既存 elsif ($in{'mode'} eq 'vote') {$scoreview=1; &vote; } (中略) #■ elsif ($in{'data'}) { &html; } #既存 elsif ($in{'data'}) {$scoreview=0; &html; } ------------------------------------------------- 条件文の処理で $scoreview=0/1 フラッグ切り替えをします。
その3)表示/非表示スクリプト
---------------------------------------------------270行付近 270 if ($last_cont eq $num) { print "<td bgcolor='$sel_bg' background='$pos'>"; } else { print "<td>"; } -----------------------------------------上既存、下改造スクリプト #■ 投票後表示 if ($scoreview>=1){#既存 投票後表示 print "$content</td><td align=right>$point</td>\n"; print "<td><table cellpadding=0 cellspacing=0 class=plain><td class=plain>"; print "<table cellpadding=0 cellspacing=0 bgcolor='$color' class=plain><td class=plain><img src='$grh' width=$len height=10></td></table></td>"; print "<td width=5 class=plain> </td><td class=plain>$perse\%</td></table></td></tr>\n"; } else {print "$content</td>\n";}#■投票前結果非表示・項目名表示 print "</tr>\n"; }# 括弧の対応に注意 ------------------------------------以下既存 if ($vote_stop) { ----------------------------------------------------------
インデントできないので、込み入っていますが、大きく次の条件構文を つかんでください。
if ($scoreview>=1){#フラッグが表示の値なら 項目、得点、グラフ、%などの表示処理 } else {print "$content</td>\n";}
投票後結果が表示されます。そこで更新をクリックすると 非表示に切り替わります。ただし、投票しないと結果が表示されません。
☆ 注意点 ☆ なお、投票しないと結果を見ることが出来ないソフトにしたために 作成者、管理人を含めるすべての利用者は、当然ですが、結果を 自由に見ることはできません。
作成者と管理人、それに作成者や管理人からパスワードを知らせて もらった人が、投票しなくても結果をみることができるようにするに は、多少改造が必要になります。 考え方は編集サブルーチンで、htmlサブルーチンを使いグラフを表示 するというものです。お試しください。変更が必要かつ上手くできな い時は遠慮なくご質問ください。
ひろたかさんのアンケートの目的に応じて、他に改善すべきところが あれば追加してください。当方のローカルサーバでは問題なく動作 しています。ただし、自作用に改造したスクリプトで試している ため細部で異なることがあるかもわかりません。なお、テストは できるだけローカルサーバでお試しください。 改造にともなう不具合の責任は当方にはないことをご理解ください。
◆謝辞◆ すえぽんさんには、フリーソフトとしていつものように勝手に改造 させていただいており、心から感謝申し上げます。
□ ひろたか [2006年11月19日15時17分]NXerさま返信ありがとうございます。 誠に恐縮ですが、私はCGIの超初心者でして、せっかく回答頂きましたのに残念ながらよく解りません。 大変あつかましく失礼な事とは思いますが、下記アドレスに改造後のCGIファイルをメールで送って頂く事は可能でしょうか? 本当にすみませんがどうしてもしたいのでよろしくお願いします。 送信先 apelave@yahoo.co.jp
□ NXer [2006年11月19日18時14分] ひろたかさんの >どうしても というご要望ですが、次のように改造版の再配布は、許可されていない ものと思います。NXerです。
著作権についてフリーソフトの場合、再配布などを許可する場合は --------------------------------------------------------- 「私用・商用を問わず、利用・改造・流用・再配布などご自由に ご利用ください。」 -------------------------------------------------------- などとcgiファイルまたはreadme文書に明記されています。
>改造後のCGIファイル について
例えば、すえぽんさんの電光!に------------------------------- 「再配布についてはノーマルのスクリプトのみを許可しています。」 ------------------------------------------------------------ と書いてあります。このことから、改造後の再配布は、あんQに ついても、同様に許可されていないと考えていますので、ご理解くだ さい。NXerです。
>CGIの超初心者
設置ができていれば、「超」をとっても良いと思います。初心者で かなり複雑なことができますのでご安心下さい。
しばらくは原作であんQ運用の経験を蓄積されては、いかがですか。
同時に、変更する行や挿入する場所をスクリプト上で探したりして みてください。長い目で見ると、次の改造は、おそらくあんQを カスタマイズする最適な基礎レッスンになるものと確信します。
ステプ・バイ・ステップ方式で、変更(主に挿入)するだけです。
その1)は、ラウンジの書き込みをコピーペーストするだけです。 $scoreview=0;←セミコロンの後に改行マークがエディタで表示されます。
その2)は、それぞれ、 $scoreview=1; $scoreview=0; を{の後に挿入するだけです。
その3)は、 if ($scoreview>=1){ を挿入します。 そして print "<td width=5 class=plain> </td><td class=plain>$perse\%</td></table></td></tr>\n"; この行を捜しその後に } と後のかっこを閉じます。改行をします。そして下の行を挿入です。 else {print "$content</td>\n";}#投票前結果非表示・項目名表示#は説明記号 print "</tr>\n"; ←これは既存行。
とりあえずご要望の動作をさせる最少の変更です。データ結果は 編集モードで、数値ですが確認できます。(サブルーチンの作成は中級 レベルと思いますから必要な時またご質問ください。)
変更作業のメモ: 初期設定に使われたエディタ(秀丸やテラパッドなど)をお使いください。
cgiのテストは、本来自分のコンピュータにサーバを設置して動作を 確認するのが理想ですが、ご心配でしたら、変更行前後を含めて ラウンジに書き込んでください。しかし、そうする前に不具合も 発生せずに動作すると思います。
第1歩を踏み出すには、勇気がいりますが、次の練習をしてみましょう。
1 まず元版のanq.cgiをコピーして別のフォルダに保存してください。 これで失敗しても大丈夫ですね。 2 「ひろたかが提供している」に書き換える練習です。
-------------------------------------------------------行はその付近 151 print "■現在行われているアンケートの一覧です。<br>\n"; ------------------------------------------------------------ 上の行を下のように変更してみましょう。 -------------------------------------------------------------- 151 print "■ひろたかが提供しているアンケートの一覧です。<br>\n"; ------------------------------------------------------------- 保存して、転送します。cgiを呼び出して、変更したように表示され るか確認してください。cgiでは、エラーが当たり前と考えてください。
自転車に乗れるようになったこどもは、ほとんどが、何度もこけている うちに、バランスの取りかたを身につけるものです。早いこどもは 朝から始めて昼食前には、乗れるようになることもあります。 デジタルな自転車に乗ってみませんか。
□ ひろたか [2006年11月20日11時25分]NXerさんたびたびすみません。 ご親切に回答ありがとうございました。 なんとか出来た事には出来たのですが、アンケートを投稿し回答する際に確かにアンケートのグラフは表示されていないのですが、選択項目が欄外の上にはみ出して表示されています。 何度見直しても同じはずなのですが、対処方法はありますでしょうか? あと、アンケート期限の無期限を削除したいのですが可能でしょうか? 宜しくお願いします。
□ NXer [2006年11月20日12時25分] ひろたかさん、デジタル自転車に乗り始めて、いかがですか。NXerです。
関連スクリプトのみ掲載します。268行付近のように変更したテストは OKでした。
□-----------------------------------------ほぼ原作の行番号 263 if ($vote_stop) { print "<tr><td align=right>$c</td>\n"; } 264 else { print "<tr><td align=right>$c</td><td><input type=radio name=select value=$num></td>\n"; } 266 if ($last_cont eq $num) { print "<td bgcolor='$sel_bg' background='$pos'>"; } 267 else { print "<td>"; } #----------------------------------上既存スクリプト268行目挿入 268 if ($scoreview>=1){ #----------------------------------下既存 269 print "$content</td><td align=right>$point</td>\n"; 270 print "<td><table cellpadding=0 cellspacing=0 class=plain><td class=plain>"; -------------------------------------------------------
よく似た表現が続きますから、cgi歴に関係なく間違います。
268行 if ($scoreview>=1){ のように もし(得票表示旗が1)なら{ 処理1 }をします。 という処理1が数行に渡る時は、新たな行にすることができます。 この{に対応する閉じる括弧は 280行目に正しく挿入されて います。
以上です。
*********** 時間に余裕があれば、お読みください。拙訳と愚見 ** 次のperl言語の日本語訳をお読みください。どうして欄外/欄上/欄が下に なったか、正しく読み取ることができると思います。 日常語と少し違いますが、なれると1語、1記号で、画面に何か表現 されたり、目に見えない論理的な処理(入出力)/計算/判断をして いることがよく分かると思います。
説明:ひろたかさんは266行目にグラフ表示フラッグを立てました。 その時は、項目だけが欄上に表示されています。 ■----------------------------------■は論理エラーなどを示します。 if ($scoreview>=1){ ......if ($last_cont eq $num) { ............print "<td bgcolor='$sel_bg' background='$pos'>"; } ............else { print "<td>"; } 中略 else {print "$content</td>\n";}#投票前結果非表示・項目名表示 ------------------------------------------- もし(得票表示旗が1)なら{もし(最後の項目が番号に等しい)なら {タグ表データ 背景色はセルbg 背景は$pos} さもなければ{タグ表データ}
投票前は旗の値は0のため、中略の下のelse 文、print "$content,,,,;" 文が動作して、欄外に項目の日本語が表示されたものです。 上のelse 文中(項目が最後でないとき)の print "<td>";文は動作し ていません。
いま声に出して本を読むと脳が活性化するという面白い理論が 流布しているようです。もちろん、声にする必要はありません が、perlでは、単語、記号、それに空白さらに、エディタで表 示される改行記号などを、どれもおろそかにできません。脳の 諸機能を作動させる必要はあります。それでもエラーがでます。
エラーにヒューマンエラー、文法エラー、それに論理エラーが あります。 上の■は、perlとしては正しく実行していますから文法エラー ではありません。論理的エラーです。
ご期待のプログラムにする時、最も大切なことは、微細な違いに 気づくことです。音声化すると、むしろその声が障害になること があります。ひろたかさんのperlスクリプトと静かな、しかし、 内容の濃い対話をさせていただきました。
>アンケート期限の無期限を削除したい
1 すべてのテーマを期限付きにする 2 1の場合、無期限の選択項目を表示しない
というご要望でしょうか。関連する行の行頭に#記号をつけると 表示されなくなり、その結果選択できなくなると思います。 夕食前には、デジタル自転車でスイスイ、日本国内どこへ でも乗り出せそうですね。
□ ひろたか [2006年11月20日13時22分]NXerさん早速のご回答ありがとうございます。 デジタル自転車に少しだけ乗れた気がしている今日この頃です。 すこしづつ精進していきたいと思います。 本題ですが、アンケート期限ですが無期限自体はなくしアンケートの投稿には必ず期限を設けるようにしたいのですができますでしょうか? 本当にあつかましく申し訳ありません。 あと、現在のアンケートの一覧を罫線で囲いたいのですが可能でしょうか? あわせて回答いただけると有難いです。
□ NXer [2006年11月20日15時23分] >無期限自体はなくし
エディタに検索機能があると思います。一度試してください。NXerです。 「無期限」で次の行が検索できます。その行頭に#記号を付けてみてくだ さい。 ---------------------------------------------------- 484 #print "<input type=radio name=nolimit value=1 checked>指定しない→無期限</td></tr>\n"; 487 #print "<input type=radio name=nolimit value=1>指定しない→無期限</td></tr>\n"; 796 #print "<input type=radio name=nolimit value=1 checked>指定しない→無期限</td></tr>\n"; -----------------------------------
# がない行はperlがプログラム文として認識して実行します。 # が付いた行はperlが非実行文として扱います。コメント文に なります。削除しても良いのですが、とりあえず他との関連から残して おきます。
>アンケートの一覧を罫線で囲う
には、表(テーブル)のタグを使います。html文をHPビルダなどで 編集していると気が付きませんが、t(able) r(ow)(列)とt(able) d(ata) それぞれ、</td></tr>を終わりにつけます。表全体は ---------------------------- <table><th> </th> <tr><td> ....</td></tr> </table> ---------------------------- のようになります。cgiでは、このhtml文をperlという言語で書いています。
ではあんQのスクリプトを見てください。
また検索を使えば簡単です。数秒ですみます。転んでも、夕食には十分間に 合いますね。 検索語は class=plain です。 150行付近からはじめて見ましょう。
----------------------------------------------------- 159 # else { print "<table class=plain>\n<tr><th class=plain>アンケートテーマ</th><th class=plain>開始日</th><th class=plain>終了日</th></tr>\n"; } else { print "<table>\n<tr><th>アンケートテーマ</th><th>開始日</th><th>終了日</th></tr>\n"; } -------------------------------------------- 176 # print "<tr><td class=plain>□<a href='$script?data=$_'>$subject</a></td><td class=plain>$up</td><td class=plain>$inf</td></tr>\n"; print "<tr><td>□<a href='$script?data=$_'>$subject</a></td><td>$up</td><td>$inf</td></tr>\n"; ------------------------------------------------------------------
#文は元の文、その下はそれぞれ class=plain を削除したもの。 表には、表全体、見出し(head)やデータ(data)の属性として枠の表示と 非表示があります。<td>ならデフォルト値として枠表示です。しないとき class(その属性)=plain(枠飾りなし、服飾の無地、素データ表示)と指定します。
他にもカスタマイズしたいところがあれば次のように読んでひろたかアンケート を創造してください。 ------------------------------------------------- else { print "<table>\n<tr><th>アンケートテーマ さもなければ{モニタ表示、"<表 属性デフォルト値枠有り>\n perlの改行記号 <tr 表列><th(ead)見出し、属性デフォルト値有り>アンケートテーマ -----------------------------------------------------------
すえぽんさんの作品は、ダイヤモンドの原石です。それだけで、価値はありますが さらに研磨、装飾、流通を経て、それは、ダイヤの輝きを得ます。 原石に「たどりつきました」ひろたかさんが、ダイヤを身につけてデジタル 自転車に乗るには、ジーンズでよいのですが、気分はタキシードのフォーマル ウェアが似合うと思います。
当方で試してOKですから、サーバに転送してもこの変更はおそらく安全と 思われます。自転車のつもりが、フェラーリやポルシェに乗り換えたく なったときはローカルサーバを構築してテストしてください。暴走して サーバを破壊することがありますから。
□ ひろたか [2006年11月20日16時23分]NXerさん最高!です。 思わず一人絶叫しました。 動作確認中ですが、期限が終了した場合、終了時点のアンケートのグラフが出ない事に気が付いたのですが、終了するとアンケートのグラフがでますでしょうか? たびたび恐縮ですが宜しくお願いします。
□ NXer [2006年11月20日17時30分] まだ夕食にまにあいますか。NXerです。
ほんの数秒で、グラフはでました。初期値で旗を立てたのが正解でした。 ------------------------------------------ # 終了時表示フラグを立てる 213 elsif ($limit) { 214 $limit =~ s/(\d{4})(\d{2})(\d{2})/$1年$2月$3日<font color=red>【終了】<\/font>/; 215 $vote_stop = 1;$scoreview=1; ---------------------------------------------
213行目付近は、elsif文です。日本語のプログミング言語なら こうです。 213 さもなくてもし(制限がある)なら{ 214 制限は、次の桁指定表示します。フォントの色指定は赤色にします。 215 投票停止旗の値1とします。投票結果表示旗の値を1にします。 ------------------------------------------------ つまり、ご要望のためにする変更は、 ------------------------------- $scoreview=1; ------------------------------ を215行目に追加することで実現します。
新たにテーマを設定して、投票後、期限を修正して19日にしたところ グラフが表示されました。 これで調査に協力いただいた方にその結果を知らせる機能が 追加されました。すえぽんさんの原作では、結果を投稿前 に表示していたのですが、白紙状態にしたために、期限中と期限 後の結果は、パスワードを持つ人にだけ閲覧可能でした。 結果表示機能を投票締め切り後とすることで、質問用紙ベース とほぼおなじアンケートになります。
ソフトの開発にはこのような時間の経過が必要ですが、再現する ことができない場合があります。 製品などは、エイジングテストを、1000時間連続運転などしてから 商品化されます。このあたりは、cgiでは設置者で運用しながらの テストになると思います。なにか新しい発見がありましたら、 ラウンジに書き込んだりしてください。運用中の人に役に立つと 思います。また、ラウンジもサーチ・エンジンの検索対象です。 あんQについては日本語の制限はありますが、このcgi運用は 国境を越えて運用されている可能性がありますので、運用例など をよろしければ、書き込んでください。私も参考にさせていただ きます。
>一人絶叫 過去ログに、ママが望みどおりに変更ができて嬉しくてこどもさん にキスしまくりという報告がありました。こどもにしてみるとママ、 おかしいね。 くれぐれも表現形態にはお気をつけください。
□ ひろたか [2006年11月20日18時25分]NXerさん重ね重ね有難うございます。 無事、ここまでこれたのはNXerさんのお陰です。 本当にありがとうございました。 すみません。 もう一点あったのですが、アンケート投票のページのラジオボタンの枠がラジオボタンにぴったりではなくて幅が大きいんですが、どうしたらいいですか?
□ NXer [2006年11月20日20時35分] 表のセルの大きさなどもHP作成ソフトでは、タグの属性を知らなくても 任意の大きさに編集できます。それになれているため、html文をcgiスク リプトから読みとるのに苦労します。NXerです。
例えば、アンケートの上左端の番号1のセルのスクリプトを見てください。 ----------------------------------------------------------------- 268 if ($vote_stop) { print "<tr><td width=25 height=25 align=center>$c</td>\n"; } ----以下関連する行数行のtd タグでも、同じように任意の値に指定できます。-------
幅(width)高さ(height)属性の値(単位ピクセル)は挿入しました。 また、セル内の位置決め align は、right 右詰を中央配置にしました。 --------------------------------------- <td width=25 height=25 align=center> ---------------------------------------
文字フォントサイズが下の注1のスタイル指定で 10pt ですから、フォントサイズ を大きくすれば、セルも大きくします。
表全体に alignの値を right から center にかえるだけでも見栄えは かなり変わります。お試しください。
当方のテストあんQとひろたかさんの試行あんQとが同じように表示されている という保障はありませんが、おそらく当方のテスト結果を再現していただけると 思います。上記は貴あんQの目的や試行あんQのURLが不明なために、当方の 勝手なデザイン愚案である恐れがあります。あんQ変更のテスト・バイクライダー になっていただき、エラーの恐怖を一夜味わわせたりしました点、深く反省しており ます。この後も、よりあんQを充実させていただきたくよろしくお願いします。
◆このような変更を自由にできる原作のエレガントさにいつも感動します。 すえぽんさんに深く感謝します。
以上です。 ----------------------------------------------------注1 スタイルシートcssをご存知と思います。 デザインは現在、次のように61行目以下のように css で指定 する傾向です。 ----------------------------------- 61 # STYLE $style = "<style type=\"text/css\"> body,td,th { font-size:10pt; } table,td,th { border-width:1px; border-style:solid; border-color:$text; } ----------------------------------------残り略 ここで文字(フォント)サイズを 12pt にすれば利用者に よっては見やすいアンケート画面になります。 アンケート表の上や下のさまざまな表示は、利用者が不特定の場合に 必要ですが、対象がある程度限定される時は不必要な表示の行の 行頭に # を付けて非実行文/コメント文 にすることで、結果的に アンケート表を強調する効果があると思います。
□ ひろたか [2006年11月20日22時41分]NXerさんに感謝!感謝!です!! 本当に助かりました。 もうひとついいですか? 例えば、期限が終了したアンケートはアンケート一覧から除いて別のところにまとめるなんて神ワザは可能なのでしょうか? もし もし出来るものであれば教えてていただけますでしょうか? そして、アンケート一覧のアンケートテーマの欄内の□〜始まる□を数字の1から始めて連番で表示する事も可能でしょうか? もう一つもう一つと再三の問いにも関わらず、親切丁寧にご回答頂きまして誠にありがとうございました。 今後ともよろしくお願いします。
□ NXer [2006年11月21日16時23分] >!!!!
最多叫びマークをいただきありがとうございます。NXerです。 拙ウェブ頁を知恵袋などに、稀(まれx2)に引用いただくことがあり ますが、落ち着いてよくみるとその回答のお役たち度は0人か ら変化しないので、引用していただいた方に申し訳なく思うこ とがあります。不特定多数に満足頂くのはむづかしいものです。
>期限が終了したアンケートはアンケート一覧から除いて別のと ころにまとめる
これは、データの保存状況を把握することで解決します。 サーバのディレクトリ構成をみてください。
/anq/ ...|-/temp/
その1)ダウンロード
1.1 自分のコンピュータにサーバを構築して、あんQを動作 させればいつでもみることができます。
上のtempファイルをダウンロードします。 エディタですべてのファイルを指定して開くと次のように なっています。
20061121151617 20061120232035 など。これらはファイル名です。
1.2 エクセルで読み込むことができます。
アンケート項目のデータ形式: 2006112153736,ダーティ・ハリー4,2,#000000,
読み込み形式をコンマ区切り(c(omma) s(eparated) v(alue)) にすればほとんど加工することなく利用できます。色指定を削除 して、得票2を円、パイグラフ化すれば、ウェべ頁に使えそうです。 あんQの用途やエクセルの処理などは、これからのラウンジの適切 なテーマでもあるように思います。
>連番で表示 カウンタはすえぽんさんが$cを常用されています。 ここではローカルカウンタとして$countを使います。 他に使うこともありますから、162で初期化(initialization)して います。枠を施(ほどこ)したことから、整形をするために 番号欄を新規にもうけるなど少し複雑です。欄が多すぎるかも しれません。昔エクセルが日本に受け入れなかった頃原因を 追求したところ、日本の慣習では表に枠を付けるのですが、 英米では、論文内ではほとんど枠をつけないため、罫線表示機能 が充実していなかったことも一因のようでした。現在でも その習慣に変わりがありません。すえぽんさんの作品は、 そういう意味では欧米仕様になっています。ひろたかさんの あんQのテーマや結果表示は、対象者によって微調整が必要に なるかもしれません。
------------------------------------161 見出しに番号追加 161 else { print "<table>\n<tr><th>番号</th><th>アンケートテーマ</th><th>開始日</th><th>終了日</th></tr>\n"; } 162 $count = 0; #連番カウンタ初期化挿入 foreach (@sortdir) { 略 160 close (FILE); 162 $count++; #カウンタインクレメント(増分1)行挿入 略 184 print "<tr><td align=center>$count</td><td><a href='$script?data=$_'>$subject</a></td><td>$up</td><td>$inf</td></tr>\n"; ----------------------------------------------------- 184行目に 番号欄追加、表示位置中央、カウンタ数値表示 <td align=center>$count</td> を挿入 --------------------------------------------------------- ラウンジのこの件は長くなりましたので、これで終結させて いただきます。運用で必要な変更などのご質問は新たなページで してください。
アンケート一つ取り上げても、文化の違いが影響していると愚考し ていますが、デジタルな文化革命にはほとんどだれも踏み込んだこと のない世界がいっぱいあります。海図なしで航海をする冒険ににています。 当方こそいろんなご質問でウェブプログラミングやあんQについて学 ぶことばかりです。デジタル自転車の旅路が安全、かつ、たのしいも のになりますことをこころから祈念します。
|
|