#!/usr/bin/perl -w
use strict;
use warnings;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use CGI::textfiled;
my $q =CGI->new;
print $q->header;
print $q->start_html('onSite');
print $q->end_html;
print $q->textfiled(
-name => 'UserName',
-value =>'defualt value',
-size => 30,
-maxlength =>50,
);
我正在使用代码并保存为 .pl 文件并在浏览器中运行。我在 Web 浏览器中收到消息作为未定义的子例程 CGI::textfiled 在 /var/www/cgi-bin/Ams.pl 第 14 行
我必须为 CGI 文本字段更新哪些内容