将两个数组插入html表perl的列中

我有两个具有相关数据的数组。我需要将它们插入html表中。我正在使用通过搜索论坛发现的模块从不同的程序访问这些阵列

package My::Module;
use strict;
use warnings;
use File::Slurp;
use Data::Dumper;
use Exporter;

our @ISA = 'Exporter';
our @EXPORT = qw(\@owners \@values);
our(@owners, @values);
$Data::Dumper::Indent = 1;

my @fileDatas = read_file("/x/home/venganesan/output.txt");

这在我的文件夹下，名为Module.pm。另一个文件中包含该表的部分是

use strict;
use warnings;
use CGI;
use My::Module;
my $q = new CGI;

print $q->header;
print $q->start_html(-title=>"Table testing", -style =>{'src'=> '/x/home/venganesan/style.css'});

print $q->h1("Modified WOWO diff");
print $q->table(        {-border=>1, cellpadding=>3},
        $q->Tr($q->th(['WOWODiff', 'Owner', 'Signoff'])),
        foreach $own(@owners){
        $q->Tr(
        $q->td([$own,'Two', 'Three'])},
        $q->td(['four', 'Five', 'Six']),

        ),

---

我只是想打印一个数组，看看它是如何工作的，然后包括另一个数组。当我使用Module.pm时，我得到的输出是命令行上的两个数组，没有html。如果我删除它，就会得到html代码。我正在学习perl和新模块。我愿意接受批评和更好的方法来实现代码。

现在是2013年。现在不应该有人使用CGI.pm生成HTML。当然，使用CGI.PM来生成标题和解析CGI请求，但是请考虑使用像模板工具包一样的HTML。

---

我不清楚你的问题是什么。你是说如果使用My:：Module（顺便说一句，这是一个很糟糕的名字）会出错吗？在这种情况下，您应该查看写入web服务器错误日志的内容，并解决其中给出的问题。

您不应该在

qw（…）

表达式中逃逸

@

。@mob我更改了它。输出仍然是一样的，我只是搜索了一下在perl中使用html，然后找到了一个例子。我只是试着根据我的需要修改它。整个结构来自该示例。我将使用HTML:：Template，谢谢你的建议。我的问题是：我有两个数组需要在html表中显示为列。当前场景只是在控制台上打印两个数组，当My:：Module被删除时，程序中的html标记被打印出来。使用html模板要容易得多。谢谢你的帮助，嗯？您发现HTML:：Template比HTML:：Template更容易使用吗？你看过模板工具包了吗？我没有使用cgi，而是使用Html模板。它成功了。我并没有看模板工具包，我以为你们指的是Html模板。我看到了链接，看起来很棒。我将在未来的项目中使用它。