HTML 템플릿을 사용하여 중첩 루프를 표시하는 방법

Question

tmpl_loop을 사용하여 중첩 루프를 설정하려고하지만 HTML :: Template 모듈에 대한 경험이 거의 없습니다.

내가하려고 레이아웃이 같은 것입니다 : 등등

 
Name  Start   End 
Dog  04-02-1996 06-19-2011 

Breed: Terrier  Sex: Male 
Color: Brown   Eye Color: Green 
Weight: 10 Pounds  Attribute: bla bla 

Name  Start   End 
Dog  03-04-1985 06-01-1988 

Breed: Retriever  Sex: Female 
Color: Black   Eye Color: Green 
Weight: 50 Pounds  Attribute: bla bla 

그리고 ...

개의 수는 달라질 수 있습니다 그것은 수도 있고 추가 정보가 없을 수 있지만, 그럴 때 모든 필드가 표시되어야합니다.

이것은 수평 정보를 올바르게 표시하는 블록입니다.

그러나 샘플 디스플레이에 정보를 표시하려면 어떻게 HTML 템플리트를 수정합니까?

또한 어떻게 Perl 데이터 구조가 어떻게 생겼을까요?

감사합니다.

Answer 1

중첩 루프가 필요하지 않은 경우입니다.

<table> 
    <TMPL_LOOP dogs> 
     <tr><td>&nbsp;</td><td></td><td></td><td></td><td></td><td></td></tr> 
     <tr> 
      <td></td><td>Name</td> 
      <td></td><td>Start</td> 
      <td></td><td>End</td> 
     </tr> 
     <tr> 
      <td><TMPL_VAR ldogname></td><td><TMPL_VAR dogname></td> 
      <td><TMPL_VAR lstart></td><td><TMPL_VAR start></td> 
      <td><TMPL_VAR lend></td><td><TMPL_VAR end></td> 
     </tr> 
     <tr> 
      <td><TMPL_VAR lbreed></td><td><TMPL_VAR breed></td> 
      <td><TMPL_VAR lsex></td><td><TMPL_VAR sex></td> 
      <td><TMPL_VAR lcolor></td><td><TMPL_VAR color></td> 
     </tr> 
     <tr> 
      <td><TMPL_VAR leye></td><td><TMPL_VAR eye></td> 
      <td><TMPL_VAR lweight></td><td><TMPL_VAR weight></td> 
      <td><TMPL_VAR lattr></td><td><TMPL_VAR attr></td> 
     </tr> 
    </TMPL_LOOP> 
</table> 

및 코드 :

는 당신의 템플릿 파일을 변경

#!/usr/bin/perl 
use warnings; 
use strict; 
use HTML::Template; 

my $template=HTML::Template->new(filename=>'template.txt'); 
my @dogs=(#dogs data 
    {dogname=>'Dog',start=>'04-02-1996',end=>'06-19-2011',breed=>'Terrier',sex=>'Male',color=>'Brown',eye=>'Green',weight=>'10 Pounds',attr=>'bla bla'}, 
    {dogname=>'Dog',start=>'03-04-1985',end=>'06-01-1988',breed=>'Retriever',sex=>'Female',color=>'Black',eye=>'Green',weight=>'50 Pounds',attr=>'bla bla'}, 
); 
my %labels=(
    ldogname=>'', 
    lstart=>'', 
    lend=>'', 
    lbreed=>'Breed: ', 
    lsex=>'Sex: ', 
    lcolor=>'Color: ', 
    leye=>'Eye Color: ', 
    lweight=>'Weight: ', 
    lattr=>'Attribute: ' 
); 
for my $dog (@dogs) { #mix labels and values 
    while (my ($k,$v)=each %labels) { 
     $dog->{$k}=$v; 
    } 
} 
$template->param(dogs=>\@dogs); 
print $template->output; 

당신은 원하는 출력을해야합니다. http://www.perlmonks.org/?node_id=770278이 http://www.perlmonks.org/?node_id=193367 (구글이 더 많은 결과를 반환)