Question

我正在努力做到以下几点。

从网站获取一个用户对TEXTAREA FORM的投入,然后通过一个附件/单,在每一行之前增加线号。例如:

diet coke
potato chips
gelato

届时将开始

1 diet coke
2 potato chips
3 gelato

我知道,如何将单一价值或一刀切的价值观推向手稿,但当我试图做一个口号(`拉腊y')来增加一个线号时,它就没有工作。如何做到这一点。

我的html档案

<HTML>
<BODY>

<FORM ACTION="/cgi-bin/splitfoods.pl">
  <P>What did you eat today? <BR><TEXTAREA NAME="value" ID="value" style="width:900px;height
:700px;background-color:#FFF8DC;font-size:20px">
    </TEXTAREA>

<P><INPUT TYPE="SUBMIT" VALUE="Submit">
</FORM>

</BODY>
</HTML>

单体档案(从垫子)

#!/usr/bin/perl

use CGI;
use CGI qw(:standard);


$query = new CGI;

@foods = split( 
 ,$query->param("value"));


# -- HTML STUFF --
print header;
print start_html;
for($i=1; $i<=@foods; $i++) {
    print "$i @foods[$i-1]";
    print "<br>";
}
print end_html;

请求

cgi-bin/splitfoods.pl?value=diet+coke%0D%0Apotato+chips%0D%0Agelato

Thanks

Answer 1

@foods = split( 
 ,$query->param( food ));

for($i=1; $i<=@foods; $i++) {

   print "$i @foods[$i-1]
";

}

Answer 2

这是比较清洁的,对近况案例的分类可能性较小。加上数字是超文本,对网络来说更自然。确实,你应当读到整个文件CGI,并且总是以警告和严格方式开始代码。

use strict;
use warnings;
no warnings "uninitialized";
use CGI ":standard";

# Scalar/array context matters with param()!
my $food = param("value");
my @foods = split /
/, $food;

print
    header(),
    start_html(),
    ol(li( @foods )),
    end_html();

友情链接