質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

90.35%

  • HTML

    9535questions

    HTMLとは、ウェブ上の文書を記述・作成するためのマークアップ言語のことです。文章の中に記述することで、文書の論理構造などを設定することができます。ハイパーリンクを設定できるハイパーテキストであり、画像・リスト・表などのデータファイルをリンクする情報に結びつけて情報を整理します。現在あるネットワーク上のほとんどのウェブページはHTMLで作成されています。

  • Perl

    463questions

    Perlは多目的に使用される実用性が高い動的プログラミング言語のひとつです。

  • Catalyst

    11questions

    Catalystは、Perlで書かれたオープンソースのウェブアプリケーションフレームワークです。 Ruby on Rails、Springなどのフレームワークに強い影響を受けています。

HTMLのコードをもっとコンパクトにまとめたい。

受付中

回答 1

投稿 編集

  • 評価
  • クリップ 0
  • VIEW 169

fff.claypool

score 4

年月を表示させるプルダウンを作成しております。
要件は下記の通りです。

+++++++++++++++++++++++++++++++++++++++++++
1.当月から半年前までの年月と翌月の年月を表示させる。
2.ただし、201805以前の年月はプルダウンに表示させないようにする。
+++++++++++++++++++++++++++++++++++++++++++

上記要件を満たすコードを書いたところ、HTMLが下記のような長いコードになってしまいました。

 <div class="form-group">
    <label for="number" class="control-label col-xs-5">年月</label>
    <div class="col-xs-3">
      <select class="form-control" id="number" name="yyyymm">
        <option value="">選択してください</option>
        [% IF (last_2month == 201805) %]
        <option value="[% last_1month %]">[% last_1month %]</option>
        <option value="[% this_month %]">[% this_month %]</option>
        <option value="[% after_1month %]">[% after_1month %]</option>
        [% ELSIF (last_3month == 201805) %]
        <option value="[% last_2month %]">[% last_2month %]</option>
        <option value="[% last_1month %]">[% last_1month %]</option>
        <option value="[% this_month %]">[% this_month %]</option>
        <option value="[% after_1month %]">[% after_1month %]</option>
        [% ELSIF (last_4month == 201805) %]
        <option value="[% last_3month %]">[% last_3month %]</option>
        <option value="[% last_2month %]">[% last_2month %]</option>
        <option value="[% last_1month %]">[% last_1month %]</option>
        <option value="[% this_month %]">[% this_month %]</option>
        <option value="[% after_1month %]">[% after_1month %]</option>
        [% ELSIF (last_5month == 201805) %]
        <option value="[% last_4month %]">[% last_4month %]</option>
        <option value="[% last_3month %]">[% last_3month %]</option>
        <option value="[% last_2month %]">[% last_2month %]</option>
        <option value="[% last_1month %]">[% last_1month %]</option>
        <option value="[% this_month %]">[% this_month %]</option>
        <option value="[% after_1month %]">[% after_1month %]</option>
        [% ELSIF (last_6month == 201805) %]
        <option value="[% last_5month %]">[% last_5month %]</option>
        <option value="[% last_4month %]">[% last_4month %]</option>
        <option value="[% last_3month %]">[% last_3month %]</option>
        <option value="[% last_2month %]">[% last_2month %]</option>
        <option value="[% last_1month %]">[% last_1month %]</option>
        <option value="[% this_month %]">[% this_month %]</option>
        <option value="[% after_1month %]">[% after_1month %]</option>
        [% ELSE %]
        <option value="[% last_6month %]">[% last_6month %]</option>
        <option value="[% last_5month %]">[% last_5month %]</option>
        <option value="[% last_4month %]">[% last_4month %]</option>
        <option value="[% last_3month %]">[% last_3month %]</option>
        <option value="[% last_2month %]">[% last_2month %]</option>
        <option value="[% last_1month %]">[% last_1month %]</option>
        <option value="[% this_month %]">[% this_month %]</option>
        <option value="[% after_1month %]">[% after_1month %]</option>
        [% END %]
        </select>
   </div>
  </div>


もっと簡潔に済む方法があればご教示いただけますと幸いです。
よろしくお願いいたします。

Contoroller

sub fuga_diary {
    my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time);

    my $last_6month = sprintf("%04d%02d", $year + 1900, $mon - 5);
    my $last_5month = sprintf("%04d%02d", $year + 1900, $mon - 4);
    my $last_4month = sprintf("%04d%02d", $year + 1900, $mon - 3 );
    my $last_3month = sprintf("%04d%02d", $year + 1900, $mon - 2);
    my $last_2month = sprintf("%04d%02d", $year + 1900, $mon - 1);
    my $last_1month = sprintf("%04d%02d", $year + 1900, $mon );
    my $this_month = sprintf("%04d%02d", $year + 1900, $mon + 1);
    my $after_1month = sprintf("%04d%02d", $year + 1900, $mon + 2)

    my %result_diary = (
    'last_6month' => $last_6month,
    'last_5month' => $last_5month,
    'last_4month' => $last_4month,
    'last_3month' => $last_3month,
    'last_2month' => $last_2month,
    'last_1month' => $last_1month,
    'this_month' => $this_month,
    'after_1month' => $after_1month,
    );

    return \%result_diary;
}

Logic

sub index :Path :Args(0) {
    my ( $self, $c ) = @_;
    $c->stash->{template} = "hoge.tt";
    my $fuga_logic = $c->model("Logic::Hogehoge");

    my $result_diary = $fuga_logic->fuga_diary;


    $c->stash->{last_6month} = $result_diary->{last_6month};
    $c->stash->{last_5month} = $result_diary->{last_5month};
    $c->stash->{last_4month} = $result_diary->{last_4month};
    $c->stash->{last_3month} = $result_diary->{last_3month};
    $c->stash->{last_2month} = $result_diary->{last_2month};
    $c->stash->{last_1month} = $result_diary->{last_1month};
    $c->stash->{this_month} = $result_diary->{this_month};
    $c->stash->{after_1month} = $result_diary->{after_1month};
}
  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

回答 1

+1

htmlが長くなる原因は、htmlでロジックを記述しているからですね。

fuga_diaryが返す結果を、「半年前~来月の月のうち、201806以降の月」とすればよいのでは?
で、htmlにその配列を渡して、ループで表示すればどうでしょうか?

Perlを全然知らないので、あっているか分かりませんが、以下のような感じです。

sub fuga_diary {
    my @result_diary = ();

    my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time);

    for ($i = -1; $i <= 6; ++$i) {
        // これだと、今月が201901になったらうまくいきませんが、とりあえず無視します
        $month = sprintf("%04d%02d", $year + 1900, $mon - $i);
        if ($month == "201805") {
            last;
        }
        push @result_diary, $month;
    }
    return @result_diary;
}

↑の結果をhtmlに渡せば、htmlはただ配列の中身を出力するように書けば済みます。

htmlで使われているテンプレートエンジンはtemplate-toolkitというやつでしょうか。
だとしたら、たぶんこのような書き方になると思います。
www.template-toolkit.org#section_FOREACH

<div class="form-group">
    <label for="number" class="control-label col-xs-5">年月</label>
    <div class="col-xs-3">
      <select class="form-control" id="number" name="yyyymm">
        <option value="">選択してください</option>

        [% FOREACH month IN result_dialy %]
           <option value="[% month %]">[% month %]</option>
        [% END %]

        </select>
   </div>
  </div>

投稿

編集

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2018/07/01 15:04 編集

    ご回答頂きありがとうございます!
    ロジックの返り値@result_diaryの値に関しては問題ないのですが、下記コードを書いたところ配列の値の数が代入されてしまい、年月が代入されませんでした。
    ----------------------------------------------------
    $c->stash->{month} = @result_diary;
    ----------------------------------------------------

    ここで、年月が代入されるようにするためにはどのようなコードを書けばいいでしょうか?

    キャンセル

  • 2018/07/01 15:20

    上記、下記コードにて解決いたしました。
    -----------------------------------------------------------
    foreach my $r (@result_diary){
    $c->stash->{month} = $r;
    }
    -----------------------------------------------------------

    キャンセル

  • 2018/07/01 15:33 編集

    下記のような書き方だとプルダウンに適切な値が表示されません。
    --------------------------------------------------------------------------------
    [% FOREACH month IN result_diary %]
    <option value="[% month %]">[% month %]</option>
    [% END %]
    --------------------------------------------------------------------------------

    キャンセル

  • 2018/07/02 01:47

    >上記、下記コードにて解決いたしました。
    本当にこれで解決していますか? これではmonthには$result_diary[$#result_diary]しか渡らないと思います。たぶん$c->stash->{month} = \@result_diaryではないでしょうか。catalylistは知らないのでデリファレンスの方法は分かりませんが…。

    キャンセル

  • 2018/07/02 02:13

    分かったような気がするので、もう一つの質問の方に回答しておきました。

    キャンセル

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 90.35%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる

同じタグがついた質問を見る

  • HTML

    9535questions

    HTMLとは、ウェブ上の文書を記述・作成するためのマークアップ言語のことです。文章の中に記述することで、文書の論理構造などを設定することができます。ハイパーリンクを設定できるハイパーテキストであり、画像・リスト・表などのデータファイルをリンクする情報に結びつけて情報を整理します。現在あるネットワーク上のほとんどのウェブページはHTMLで作成されています。

  • Perl

    463questions

    Perlは多目的に使用される実用性が高い動的プログラミング言語のひとつです。

  • Catalyst

    11questions

    Catalystは、Perlで書かれたオープンソースのウェブアプリケーションフレームワークです。 Ruby on Rails、Springなどのフレームワークに強い影響を受けています。