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

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

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和新模块。我乐于接受批评和更好的实现代码的方式。

来源

2013-07-26 venkatvg

您不应该在'qw（...）'表达式中跳过'@'。 – mob

@mob我改变了它。而输出仍然是一样的。 – venkatvg

这是2013年。没有人应该使用CGI.pm生成HTML这些天。通过一切手段，使用CGI.pm来生成头文件和解析CGI请求，但请考虑使用类似Template Toolkit的东西来处理HTML。

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

来源

2013-07-28 13:39:17

我刚刚在perl中使用html进行了搜索，并找到了一个示例。我只是试图根据我的需要进行修改。整个结构来自该例子。我将使用HTML :: Template，谢谢你的建议。我的问题：我有两个数组，我需要显示为HTML表中的列。当My :: Module被移除时，当前场景仅在控制台上打印两个数组，打印程序中的html标签。 – venkatvg

我尝试使用http://www.sitepoint.com/introducing-html-template/。使用html模板要容易得多。感谢您的帮助。 – venkatvg

咦？您发现HTML :: Template比HTML :: Template更易于使用吗？你看了模板工具包 - http://tt2.org/？ –

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

回答

相关问题