Question

我有两个有相关数据的数组。我需要将它们插入到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和新模块。我对批评以及实施代码的更好方法持开放态度。

Answer 1

这是2013年。如今，没有人应该使用CGI.pm生成HTML。无论如何，使用CGI.pm生成标题和解析CGI请求，但请考虑使用类似于模板工具包的HTML。

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

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

1 个答案: