这个如何实现?

Perl bless you!


QUOTE:
原帖由 flw 于 2008-7-14 12:14 发表
这和 CGI 有什么关系。
学学 TT 吧,功能超级强。
http://search.cpan.org/~abw/Template-Toolkit-2.19/lib/Template.pm
简单一些的需求可以用 HTML::Template,这个简单些。
http://search.cpan.org/~samt ...

对模块不了解的情况下  用写cgi的基本原理  处理楼主的问题应该是一个简便的办法  

而且如果写成cgi可以直接 时时的更新最新查询结果  比较方便


QUOTE:
原帖由 hong_hao 于 2008-7-14 11:21 发表

所谓固定的html格式也是动态的,类似于一个表格,行和列是是根据参数定制的,有可能是15列,也可能是20列,且项目和算法都由参数定制。

如果很赶的话...可以用2 解决你的问题......
在body中间的数据..在你把数据库 抓数据出来同时,设定好<table>的格式....
填进去...甚至不需要用到Perl, 用任意语言都可以完成...

[Copy to clipboard] [ - ]
CODE:
<html>
<head></head>
<body>
$table
</body>
</html>

*如果有需要设定报表输出的内容....才需要用到CGI...否则写写简单的html也足够了...



QUOTE:
原帖由 hitsubunnu 于 2008-7-14 14:06 发表


对模块不了解的情况下  用写cgi的基本原理  处理楼主的问题应该是一个简便的办法  

而且如果写成cgi可以直接 时时的更新最新查询结果  比较方便


这个和 CGI(Common Getway Interface) 有一毛钱的关系吗?



QUOTE:
原帖由 flw 于 2008-7-14 14:15 发表


这个和 CGI(Common Getway Interface) 有一毛钱的关系吗?

请你学会 尊重他人 !

不好意思,让大家费心了。我详细描述一下需求信息:
目的:访问数据库,读取并加工数据,产生html格式的文件
html文件类似一张报表:


                                                                                         资产负债表

                                               填报机构:

                                               填报币别:                                                             日期:

项目

余额

比上月%

比上年末%

同比%

现金





客户贷款





固定资产


































      或者:
项目 期限
一个月内 1~3个月 3~6个月 6~12个月 1年~2年 2~3年 3~5年 5~8年 9~15年
资产
贷款余额
其他
固定资产
。。。


为方便用户以后新增及自制表样,我们打算如下设计:
定义参数表,存贮表行和表列的属性,这样,生成的HTML就不是固定格式。行列随用户的定义而变化,主要是针对上表的时间区域做用户自定义。
工作流程如下:
1、读取每张报表定义的参数,可以取到每个单元格的值,填入值,生成txt文件。
2、若干报表,可根据参数定义报表的html格式模版;
3、对于不需要定制格式的固定html,预先定制html模版,然后将txt的值填入html。
4、对于需要用户定制的非固定html,临时产生html模版,然后将txt的值填入html。

报表很多,量很大,平台在unix,除用户定制端在web端配置意外,报表生成拟批量实现。
各位给点意见吧,用什么来生成txt及html比较好点?


QUOTE:
原帖由 flw 于 2008-7-14 12:14 发表
这和 CGI 有什么关系。
学学 TT 吧,功能超级强。
http://search.cpan.org/~abw/Template-Toolkit-2.19/lib/Template.pm
简单一些的需求可以用 HTML::Template,这个简单些。
http://search.cpan.org/~samt ...

临时客户。。。。这不是才来不久了嘛
。。。
这是一个简单的 例子 供参考

[Copy to clipboard] [ - ]
CODE:
use strict;
use warnings;

my @data = <DATA>;

print "<p>hello!</p>";
print "<table>";

for(@data){
        my @line = split(/ /);
        print "<tr>";
        for(0..$#line){
                print "<td>$line[$_]</td>";
        }
        print "</tr>";       
}


print "</table>";


__DATA__
a b c d e f g h i j k l m
1 2 3 4 5 6 7 8 9 10 11 12
111 1155 123