0

我有两个具有相关数据的数组。我需要将它们插入到 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");

它位于 My 文件夹下，名为 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 和新模块。我愿意接受批评和更好的实现代码的方法。

4

1 回答 1

0

现在是 2013 年。现在应该没有人使用 CGI.pm 生成 HTML。无论如何，使用 CGI.pm 来生成标头和解析 CGI 请求，但请考虑为您的 HTML 使用模板工具包之类的东西。

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

于 2013-07-28T13:39:17.230 回答