🎄teratailクリスマスプレゼントキャンペーン2024🎄』開催中!

\teratail特別グッズやAmazonギフトカード最大2,000円分が当たる!/

詳細はこちら
Perl

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

Catalyst

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

HTML

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

Q&A

2回答

10154閲覧

HTMLにおける繰り返し表現について

fff.claypool

総合スコア12

Perl

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

Catalyst

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

HTML

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

0グッド

0クリップ

投稿2018/07/01 10:17

編集2018/07/01 10:19

コントローラで生成した$c->stash->{month}の値をテンプレートツールキットを使用して、HTMLに繰り返しで渡したいのですが、1つの値しか渡すことができません。
繰り返しで渡すためにHTMLのコードをどのように書けばいいかご教示頂けますと幸いです。
よろしくお願いいたします。

HTML

1<form class="form-horizontal" method="post"> 2 <div class="form-group"> 3 <label for="number" class="control-label col-xs-5">年月</label> 4 <div class="col-xs-3"> 5 <select class="form-control" id="number" name="yyyymm"> 6 <option value="">選択してください</option> 7     [% FOREACH month %] 8 <option value="[% month %]">[% month %]</option> 9 [% END %] 10 </select> 11 </div> 12 </div>

コントローラ

Perl

1sub hoge_diary { 2 my @result_diary = (); 3 my @result_diary_phr = (); 4 5 my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time); 6 7 for (my $i = -2; $i <= 6; ++$i) { 8 my $month = sprintf("%04d%02d", $year + 1900, $mon - $i); 9 if ($month == "201805") { 10 last; 11 } 12 push @result_diary_phr, $month; 13 @result_diary = reverse(@result_diary_phr); 14 } 15 return @result_diary; 16}

ロジック

Perl

1sub index :Path :Args(0) { 2 my ( $self, $c, @c ) = @_; 3 $c->stash->{template} = "fuga.tt2"; 4 my $hoge_logic = $c->model("Logic::Hoge"); 5 6 my @result_diary = $hoge_logic->hoge_diary; 7 foreach my $diary_phr (@result_diary){ 8 $c->stash->{month} = $diary_phr; 9 } 10}

気になる質問をクリップする

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

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

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答2

0

metacpanのドキュメントによれば、渡す側はやはり下のようで、

perl

1$c->stash->{months} =\@diary_phr;

受ける側はこんな感じでしょう。

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

投稿2018/07/01 17:10

KojiDoi

総合スコア13692

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

0

Perlはもう何年前か忘れたくらいにやったくらいで、
テンプレートツールキットなるもの初めて聞いたのですが、
例えば下記のマニュアルを見た感じ、FOREACHの使い方合ってるのでしょうか。

VIEW側で配列がmonthという名前で渡ってきているのが正しいとしたら
例えば下記のような書き方になるように思います。
※検証できないので間違っていたらすみません

perl

1[% FOREACH m = month %] 2 <option value="[% m%]">[% m%]</option> 3[% END %]

他気づき

下記だと代入されている側が配列ではなくてただの変数っぽく見えます。

perl

1 foreach my $diary_phr (@result_diary){ 2 $c->stash->{month} = $diary_phr; 3 }

とすると、ずっと上書きされているだけなので最後の値しか残らないのでは?
result_diaryをそのままVIEWに引き渡すようにできませんか?

投稿2018/07/01 13:33

m.ts10806

総合スコア80875

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

まだベストアンサーが選ばれていません

会員登録して回答してみよう

アカウントをお持ちの方は

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

ただいまの回答率
85.36%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問