|
링스 외부 파일 당겨 쓰기에 관한 설명입니다.
즉 보통 템플리트를 만들때 html 만 사용하죠.
그 템플리트의 html 내에 또 다른 파일을 당겨 쓰는 법입니다.
만약 header.txt 와 footer.txt를 만들어 놓고 많은 템플리트 파일에
사용한다면 우~ 무지 편하겠쪄 ^^;
우선 template.pm 파일을 열어봅니다.
다음 sub parse 루틴을 찾습니다.
요 루틴을 그냥 다 지우고 아래를 복사해서 붙이세요.
sub parse {
# ---------------------------------------------------------------
# Parses a template.
#
my $self = shift;
my $template = shift;
my $begin = $self->{
begin
} &pip;&pip; quotemeta(
<%
);
my $end = $self->{
begin
} &pip;&pip; quotemeta(
%>
);
exists $self->{
templates
}{$template} or ($self->load_template($template) or return undef);
exists $self->{
vars
} or (&error (
NONAMESPACE
) and return undef);
$self->{
parsed
}{$template} =
;
my $temp = $self->{
templates
}{$template};
# Parse includes, do this first so that the includes can include
# template tags.
$temp =~ s#$begins*includes*(. ?)s*$end#
if (exists $self->{
inc
}{$1}) { $self->{
inc
}{$1}; }
else {
if (open (INC, "${$self}{
ROOT
}/$1")) {
$self->{
inc
}{$1} = join ("", );
close INC;
$self->{
inc
}{$1};
}
else {
"Can
t find file: ${$self}{
ROOT
}/$1";
}
}
#goe;
# Now go line by line and strip out the unwanted stuff looking for
# if and ifnot tags.
my @lines = split /
/, $temp;
$temp =
; my @go = (1,1); my $depth = 1; my $line =
;
LINE: foreach $line (@lines) {
# Init the previous, variable and more strings.
my ($prev, $var, $neg, $more, $orig) = (
,
,
,
,
);
# Check for if tags.
$line =~ s/((.*?)$begins*if(not)?s (. ?)s*$end(.*))/
($orig, $prev, $neg, $var, $more) = ($1, $2, $3, $4, $5);
# We
ve found an if tag, let
s set the depth to see whether we are in print mode or not.
if ($prev !~ m,$begins*(. )s*$end,og) {
$go[$depth] and ($temp .= $prev);
if ($neg) {
($self->{
vars
}{$var}) ?
($go[ $depth] = 0) : ($go[ $depth] = $go[$depth]) and "";
}
else {
($self->{
vars
}{$var}) ?
($go[ $depth] = $go[$depth]) : ($go[ $depth] = 0) and "";
}
}
else {
# Oops, there was an endif tag we missed, set the original line back and keep going.
$more =
; $orig;
}
/oe;
if ($more) { $line = $more; redo LINE; }
# Check for endif tags.
$line =~ s/(.*?)$begins*endifs*$end(.*)/
($prev, $more) = ($1, $2);
$go[$depth] and ($temp .= $prev);
($go[$depth--] = 1) and "";
/oe;
if ($more) { $line = $more; redo LINE; }
# Add the content..
$go[$depth] and ($temp .= "$line
");
}
# Replace the special variables, we allow code ref mapping.
$temp =~ s/$begins*(. ?)s*$end/
if (exists $self->{
vars
}{$1}) {
ref ($self->{
vars
}{$1}) eq
CODE
?
&{$self->{
vars
}{$1}} : $self->{
vars
}{$1};
}
else { "Unkown Tag: $1"; }
/goe;
$self->{
parsed
}{$template} = $temp;
return $self->{
parsed
}{$template};
}
다음 보통 cgi-bin/admin/templates 디렉토리로 가면 무지 많은 html
템플리트가 있죠?
그놈중 한놈 home.html을 열었다고 가정합니다.
(참 그전에 이 디렉토리에 header.txt footer.txt파일을 만들어 넣었다고
가정합니다.)
거기에서 아래와 같은 태그를 넣어봅니다.
<%include header.txt%>
그러면 header.txt 파일이 참조가 되어 header.txt 파일을 읽고 home.html 파일을
또 읽어서 페이지를 생성해내죠.
footer.txt 도 마찬가지 입니다.
근데 뭐가 좋냐구요?
웅~
수십개의 html은 당연히 같은 형태로 유지 되어 질겁니다.
특히 상단과 하단 부분은 같은 테이블에 같은 이미지 텍스트가 많이 쓰이죠.
요놈을 사용하면 반복 작업을 피할수가 있죠.
그 많은 html에 header.txt와 footer.txt 파일을 만들어 넣기만 하면
각각의 html은 내용만 쏙 들어가면 홈페이지 작업이 끝~ 이네요.
그럼 한번 써보세요.
|
91
945
1999-06-20 04:44:37
닉네임
