如何将Javascript值用作Perl变量

有没有办法将javascript变量的值转换为perl变量，以便在脚本的其余部分中使用

我拥有的代码是：

  print "<TABLE border=22>";
  foreach $tmp (@splitarray) 
  {
    print "<TR>";
    $links = "<a href = '#' onclick='testingFunction(this);' >$tmp</a><BR>";
    print "<TD>$links</TD>";
  }
  print "<TD id='demo'></TD>";
  print "</TR>";
  print "</TABLE>";
}
print "<BR>";
print "<script type='text/javascript'>
       function testingFunction(link) 
       {
        var text = link.innerHTML;
        document.getElementById('demo2').innerHTML = text;
       }
       </script>";

###Information about the group name that is clicked
print "
<TABLE border=1 cellpadding='10'>
<CAPTION id ='demo2'>
 <strong></strong>
</CAPTION>
<TR>
 <TD>Members of group:</TD>
 <TD>(Names)</TD>
</TR>
<TR>
 <TD>Jobs that group can do:</TD>
 <TD>(Jobs)</TD>
</TR>
</TABLE>";

print”“；
foreach$tmp（@splitarray）
{
打印“”；
$links=“
”；
打印“$links”；
}
打印“”；
打印“”；
打印“”；
}
打印“
”；
“打印”
功能测试功能（链接）
{
var text=link.innerHTML；
document.getElementById（'demo2'）。innerHTML=text；
}
";
###有关单击的组名的信息
“打印”

小组成员：
（姓名）
小组可以做的工作：
（工作）
";

拆分数组变量是组名。我希望在代码的其他部分使用javascript变量“text”（显示在标题中，id为demo2）的结果，但我希望将它们存储为Perl变量。例如，如果单击的组名是“group1”，我希望Perl变量$groupName在打印时显示为“group1”

---

更具体地说，我的问题是如何将Javascript OnClick事件函数的结果存储在perl变量中？

这样不行。当内容被发送到浏览器时，perl脚本在很久以前就完成了它的执行。如果您想知道用户在他的计算机上做了什么，您必须再次将这些信息发送到您的内容生成程序（在大多数情况下是服务器；））

---

您可能想阅读。

我以前从未使用过AJAX，但我会研究它。没有一种方法可以使用Perl的param（）函数？事实上，Perl的

param（）

函数会很有用，但首先必须将感兴趣的值传递给脚本。换句话说，如果内容被发送到客户端浏览器（他可以操作数据），这意味着脚本在一段时间前完成了它的工作。您必须找到一种方法（比如ajax）向它发送一个值，然后获取参数。使用我找到的示例有点像我想要的，但是当我diddrint“function testingFunction（link）{var text=link.innerHTML；document.getElementById（'demo2'）。innerHTML=text；$.ajax时，代码不起作用({url:'./testScript.cgi'，数据：{'groupName'：text}；}；“；$groupName=param（'groupName'）；打印$groupName；