从perl文本框中读取

Question

我想从perl文本框中读取值jj

    print $q->textfield(
       -name => 'UserName',
       -value =>'jj',
       -size  => 15,
       -maxlength =>40,
    ); 

我以前读过

     my $txt=$q->param('UserName');

但不能从文本框中读取。

Answer 1

param会将通过POST提交的数据或查询字符串提供给CGI程序。它不会为您提供将在您之前在脚本中输出的表单中显示的数据。

如果您想知道这一点，请在开始使用之前将数据放入变量中。

my $txt = "jj";

print $q->textfield(
   -name => 'UserName',
   -value => $txt,
   -size  => 15,
   -maxlength =>40,
);