如何使用perl的CGI例程？

Question

我正在尝试使用

CGI

构建一个登录表单。perl

我想知道为什么我不需要在

sub show_login_form{
return div ({-id =>'loginFormDiv'}),
    start_form, "\n",
    CGI->start_table, "\n",     
    CGI->end_table, "\n",   
    end_form, "\n",
    div, "\n";
}

之前添加

CGI->

，但如果我不在

start_form

和

start_table

之前添加

end_table

，

"start_table"

和

"end_table"

会打印为

strings

？

谢谢您的帮助。

Answer 1

为什么我可以使用你的一些子程序？

因为您可能使用以下 use 语句导入它们：

use CGI qw(:standard);

如CGI - 使用面向功能的接口中所述，这将导入“标准”功能，“html2”、“html3”、“html4”、“ssl”、“form”和“cgi”。

但这不包括表方法。

要也获得它们，您可以将 use 语句修改为以下内容：

use CGI qw(:standard *table);

为什么删除 CGI-> 将 start_table 打印为字符串？

因为你不明智地没有打开

use strict

。

如果有的话，你会收到以下错误：

Bareword "start_table" not allowed while "strict subs"