将Perl数组分配给Javascript变量_Javascript_Html_Arrays_Perl

将Perl数组分配给Javascript变量

javascript html arrays perl

将Perl数组分配给Javascript变量,javascript,html,arrays,perl,Javascript,Html,Arrays,Perl,我试图将Perl代码与JavaScript集成在一起，但遇到了一个问题，我只是想查看存储在Perl中的数组的输出。下面的代码为我提供了存储的数组中正确的元素，但我无法在JavaScript中看到这些元素 my @list_of_vendors; while(!$resultSet->EOF) { push @list_of_vendors, $resultSet->Fields("vendor")->Value; $resultSet->MoveNext; }

我试图将Perl代码与JavaScript集成在一起，但遇到了一个问题，我只是想查看存储在Perl中的数组的输出。下面的代码为我提供了存储的数组中正确的元素，但我无法在JavaScript中看到这些元素

my @list_of_vendors;
while(!$resultSet->EOF) {
push @list_of_vendors, $resultSet->Fields("vendor")->Value;
    $resultSet->MoveNext;
}

print "The First Vendor is: " . $list_of_vendors[0]. "\n";

这打印出

第一个供应商是：3D系统

以下代码似乎没有给出我想要的结果

print <<ONE;
<html>
<body>
<h4> Test Vendor Array Javascript </h4>

<p id="demo"</p>

<script type="text/javascript" language="JavaScript">
var myVendorArray = @list_of_vendors;
document.write('<p> $list_of_vendors[0] is the same as myVendorArray[0] </p>');

</script>
</body>
</html>
ONE

print代码的herdoc中的所有内容都是用Perl插入的，但客户端将其解释为JavaScript。所以如果你写
@list_of_vendors = ("Alice","Bob","Charlie");
...
print <<EOF;
...
<script>
var list_of_vendors = @list_of_vendors;
...
EOF

Perl具有将Perl数据结构转换为JSON表示法的良好功能，JavaScript很容易理解，因此您应该执行以下操作：
use JSON;
$list_of_vendors_json = encode_json(\@list_of_vendors);
...
var list_of_vendors = $list_of_vendors_json;
...

var list_of_vendors = ["Alice","Bob","Charlie"];

在这种情况下，浏览器会看到如下内容：
use JSON;
$list_of_vendors_json = encode_json(\@list_of_vendors);
...
var list_of_vendors = $list_of_vendors_json;
...

var list_of_vendors = ["Alice","Bob","Charlie"];

代码的其余部分将按预期工作。
代码的herdoc中的所有内容都使用Perl插入，但客户端将其解释为JavaScript。所以如果你写
@list_of_vendors = ("Alice","Bob","Charlie");
...
print <<EOF;
...
<script>
var list_of_vendors = @list_of_vendors;
...
EOF

Perl具有将Perl数据结构转换为JSON表示法的良好功能，JavaScript很容易理解，因此您应该执行以下操作：
use JSON;
$list_of_vendors_json = encode_json(\@list_of_vendors);
...
var list_of_vendors = $list_of_vendors_json;
...

var list_of_vendors = ["Alice","Bob","Charlie"];

在这种情况下，浏览器会看到如下内容：
use JSON;
$list_of_vendors_json = encode_json(\@list_of_vendors);
...
var list_of_vendors = $list_of_vendors_json;
...

var list_of_vendors = ["Alice","Bob","Charlie"];

代码的其余部分将按预期工作。
代码的herdoc中的所有内容都使用Perl插入，但客户端将其解释为JavaScript。所以如果你写
@list_of_vendors = ("Alice","Bob","Charlie");
...
print <<EOF;
...
<script>
var list_of_vendors = @list_of_vendors;
...
EOF

Perl具有将Perl数据结构转换为JSON表示法的良好功能，JavaScript很容易理解，因此您应该执行以下操作：
use JSON;
$list_of_vendors_json = encode_json(\@list_of_vendors);
...
var list_of_vendors = $list_of_vendors_json;
...

var list_of_vendors = ["Alice","Bob","Charlie"];

在这种情况下，浏览器会看到如下内容：
use JSON;
$list_of_vendors_json = encode_json(\@list_of_vendors);
...
var list_of_vendors = $list_of_vendors_json;
...

var list_of_vendors = ["Alice","Bob","Charlie"];

代码的其余部分将按预期工作。
代码的herdoc中的所有内容都使用Perl插入，但客户端将其解释为JavaScript。所以如果你写
@list_of_vendors = ("Alice","Bob","Charlie");
...
print <<EOF;
...
<script>
var list_of_vendors = @list_of_vendors;
...
EOF

Perl具有将Perl数据结构转换为JSON表示法的良好功能，JavaScript很容易理解，因此您应该执行以下操作：
use JSON;
$list_of_vendors_json = encode_json(\@list_of_vendors);
...
var list_of_vendors = $list_of_vendors_json;
...

var list_of_vendors = ["Alice","Bob","Charlie"];

在这种情况下，浏览器会看到如下内容：
use JSON;
$list_of_vendors_json = encode_json(\@list_of_vendors);
...
var list_of_vendors = $list_of_vendors_json;
...

var list_of_vendors = ["Alice","Bob","Charlie"];

您的其余代码将按预期工作。
抱歉，不一定不起作用，但没有给出我认为应该给出的结果…我想看到3D系统与html页面上的
3D系统相同。。。但由于某些原因，这并没有显示出来……您是否尝试过使用“查看源代码”来查看实际生成的HTML？我想问题很明显@ruakh我试过了，从这里注意到我没有得到我想要的结果…JavaScript拾取了变量，但没有按我想要的方式显示它…它使@list\u供应商
返回一长串供应商，而不是一个数组…感谢您的建议#感觉好像oobsorry不一定有效，但不一定有效给我我认为应该给出的结果…我想看到3D系统与html页面上的3D系统一样。。。但由于某些原因，这并没有显示出来……您是否尝试过使用“查看源代码”来查看实际生成的HTML？我想问题很明显@ruakh我试过了，从这里注意到我没有得到我想要的结果…JavaScript拾取了变量，但没有按我想要的方式显示它…它使@list\u供应商
返回一长串供应商，而不是一个数组…感谢您的建议#感觉好像oobsorry不一定有效，但不一定有效给我我认为应该给出的结果…我想看到3D系统与html页面上的3D系统一样。。。但由于某些原因，这并没有显示出来……您是否尝试过使用“查看源代码”来查看实际生成的HTML？我想问题很明显@ruakh我试过了，从这里注意到我没有得到我想要的结果…JavaScript拾取了变量，但没有按我想要的方式显示它…它使@list\u供应商
返回一长串供应商，而不是一个数组…感谢您的建议#感觉好像oobsorry不一定有效，但不一定有效给我我认为应该给出的结果…我想看到3D系统与html页面上的3D系统一样。。。但由于某些原因，这并没有显示出来……您是否尝试过使用“查看源代码”来查看实际生成的HTML？我想问题很明显@ruakh我试过了，从这里注意到我没有得到我想要的结果…JavaScript拾取了变量，但没有按我想要的方式显示它…它使@list\u供应商
返回一长串供应商，而不是一个数组…感谢您的建议#feelslikeanoobDo我必须为这两个下载JSON工作，或者这是perl中可以实现的功能，或者有某种类型的附加组件吗？使用cpan安装JSON
模块。我必须为这两项工作下载JSON吗？或者这是perl中可以实现的功能，或者有某种类型的附加组件吗？使用安装JSON
模块cpan
。我必须为这两项工作下载JSON吗？或者这是perl中可以制作的功能，还是有某种类型的附加组件？使用cpan
安装JSON
模块。我必须为这两项工作下载JSON吗？或者这是perl中可以制作的功能，还是有某种类型的附加组件为此，请使用cpan
安装JSON
模块。