我正在玩子例程。一切正常,但现在我在调用子 admin_view 时在页面底部得到一个随机返回值:1。
首页.pl
#!/usr/bin/env -w perl
no warnings 'experimental::smartmatch';
use Cwd qw(abs_path);
use feature qw(switch);
use CGI::Simple;
use HTML::Template;
my $cgi = CGI::Simple->new;
my $action = $cgi->url_param('cmd') || ''; #Set to: URL/?cmd=
my $mode = $ARGV[0]; #accept entry from terminal
print $cgi->header; #make html appear
if($action eq "") {
#if URL/?cmd=
$mode = "home";
}
if($action eq "admin_view") {
#if URL/?cmd=admin_view
$mode = admin_view;
}
given($mode){
when(admin_view) {
#html: Admin Mode & Display posts
use rawr::template qw(admin_view);
print &admin_view;
}
when(home) {
print "Some home page";
}
##Default message
default { print "mode not implemented" }
}
模板.pm
package rawr::template;
#template stuff
use strict;
use warnings;
use Exporter qw(import);
use HTML::Template;
our @EXPORT_OK = qw(admin_view);
sub admin_view {
# open the html template
##Yuck hardcoded but ok, works for now. some reason ../tmpl/admin_view.tmpl doesn't work
my $template = HTML::Template->new(filename => '/srv/mydomain/www/rawr/tmpl/admin_view.tmpl');
# fill some parameters
$template->param(ALIAS => "Some User");
$template->param(CONTENT => "Hardcoded Content");
$template->param(DATE => "Date - change me");
$template->param(TITLE => "Hardcoded - change me");
# send Content-Type and print the template output
print "Content-Type: text/html\n\n", $template->output;
}
1;
admin_view.tmpl
<table border="1" id="container">
<tr>
<td id="main_content">
<ul>
<li onclick="showmenu(this)">!<b>PROFILE</b>
<ul>
<li><a href="#">Modify</a></li>
<li> Delete</li>
<li> Lock</li>
<br>
</ul>
</li>
<br>
<TMPL_VAR NAME=ALIAS>
<br>
<br>
<TMPL_VAR NAME=DSP>
<br>
</td>
<td id="main_content" class="opacity_box" >
<b><TMPL_VAR NAME=TITLE></b> <TMPL_VAR NAME=DATE>
<br>
<br>
<TMPL_VAR NAME=CONTENT>
<br>
</td>
</tr>
</table>
模板输出正常,但在页面底部我在最后一个 </table>
之后随机输出 1标签
</table>1
这个问题有什么解决办法吗?干杯
最佳答案
您的“admin_view”子程序负责打印。
因此你不需要像这样调用它:
print &admin_view;
因为这样做,它会打印子程序的返回码。这是没有显式返回的最后一个命令的结果,因此向我们表明 print
是成功的。
试试吧
admin_view;
(丢掉 &
这是糟糕的风格)
关于html - perl 子程序输出附加 "1",我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/39640647/